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DOUBLE VWTROUBLE 


Hil Ich bin Mr. Head. Manche sagen ich habe Köpfchen, be mein plattfüßiger 
Freund ist daanderer Meinung! Ich bin zwar ein richtiger Hans- n Gassen, aber ohne 
meinen Kumpel Mr. Heals werde ich nirgends schnell hinko ber langsam! Ich 
kann zwar wie einFloh springen und sogar schleichen, aber N i r Daley Thompson 

von uns beiden. — Er ist SUPERSCHNELL! Zusammen sind v hteinflößendes Team) 
vorausgesetzt wir treffen uns und dies ist auch die einzige Möglichkeit Diktator Blacktooth zu I 
besiegen. Als wir das letzte Mal ins Schloß Blacktooth eindrangen, fanden wir die Kronen von 
DREI der unterdrückten Königreiche, aber gerade da wurde ich von einem Pfannkuchenhagel 
getroffen und verlor meinen Körper irgendwo in der Safari-Welt — näher sind wir bis jetzt an diesen 
Wahnsinnigen noch nicht herangekommen — wir sprangen aus Freude 

und lachten uns halb tot — und wir waren halb verrückt! 


Ocean Deutschland, An der Gümpgesbrücke 24, 4044 Kaarst 2 
Vertrieb: Rushware Mitvertrieb: mi jänmter Distribution in Österreich: Karasoft 
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e . und Koutekte 


Kontakt zu den Lesern Ist für 
das RUN-Team höchstes Ge- 
bot. Tausende Leserbriefe hal- 
fen, das Blatt so zu gestalten 
wie es gewünscht wird. Offene 
Kritik und ungenierte Themen- 
vorschläge sind weiterhin ge- 
fragt — lediglich unsachliche 
oder unehrliche Kritik wandert 
dorthin, wo sie hingehört: in 
den Mülleimer. 

Also ran an die Feder! 
Gelegenheit zum Kontakt mit 
RUN-Machern und dem Com- 
puter-Anwender-Club-Mün- 
chen (ACM) bot sich auf einer 
Gemeinschaftsveranstaltung 
im Münchner Löwenbräukel- 
ler. Höhepunkt des Happe- 
nings war eine Diskussionsrun- 
de zum brisanten Thema CAC 
(Computer Aided Crime). 
„Software-Schimanski" Krimi- 
nalhauptkommissar Paul vom 
Bayerischen Landeskriminal- 
amt und EDV-Rechtsanwalt Dr. 
Schneider rüffelten das man- 
gelnde Unrechtsbewußtsein 
manch eines programmkopie- 
renden und Kopien verbreiten- 
den Computer-Freaks. Paul ap- 
pellierte an die Bundesländer, 
für eine höhere Qualifizierung 
der Ermittlungsbehörden ein- 
zutreten. Dann nämlich kann 
nicht nur die Beweislage ge- 
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genüber dem Täter, sondern 
(das klingt schon besser) auch 
zum Nutzen des Unschuldigen 
verbessert werden. Knifflig ist 
folgendes Beispiel: Sammeln 
und archivieren auf Diskette ist 
zwar erlaubt — strafbar macht 
man sich aber sofort, wenn ein 
illegal kopiertes Programm in 
den Rechner geladen und ge- 
startet wird. Auf eine Run-o- 
Thek-Original-Diskette kom- 
men etwa 14 Raubkopien. Im 
Hinblick auf den schmalen 
Geldbeutel manch eines jun- 
gen Computerfans hat RUN 
bislang in den meisten Fällen 
ein Auge zugedrückt. Spitzbu- 
ben, die glauben, schnell ein- 
paar Mark nebenbei verdie- 
nen zu können, seien jedoch 
gewarnt: Der Weg von der Ko- 
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pie zum Knast ist kürzer als so 
mancher denkt! 

Amigas und Amigos kontak- 
tierten sich in der Nacht zum 1. 
Mai bei einer tropischen Party 
in der RUN-Redaktion. Grund: 
Dreijähriges Jubiläum. Karibi- 
sche Livemusik der brasiliani- 
schen Gruppe Calabash, exoti- 
sche Longdrinks und kubani- 
sches Bier sorgten für andau- 
ernde Stimmung: Erst gegen 
Morgengrauen machten sich 
die letzten Freunde des RUN- 
Teams auf den Heimweg, von 
300 Litern kontaktfördernder 
Flüssigkeit blieben lediglich 
Tropfen übrig... 

Jetzt ist unsere Amiga-Sonder- 
ausgabe für alle am Kiosk zu 
haben. Rechtzeitig zum Liefer- 
termin der ersten 500er gibt es 
geballte Informationen zu 
Freundin und Co, Informatio- 
nen, die helfen, die neu erwor- 
bene Kiste schnell in den Griff 
zu kriegen. 

RUN sucht immer Kontakte zu 
pfiffigen Mitarbeitern, die es 
verstehen, ihr Wissen schwarz 
auf weiß zu vermitteln. Egal, ob 
Listing, Bauanleitung, Tips und 
Tricks — jede Einsendung ist 
willkommen — insbesondere 
Amiga-Stuff für unser neues 
Blatt. 
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Der Schlüssel zum preiswerten 


Einstieg in die Computerwelt ist 
Domain Public Domain-Software. Für 
Software ein | Mark bekommt je- 


es etc Entgegen dem 


iese Programme Ver- 
ıdes. Das Profiprogramm 
uggler Demo" zeigt die Lei- 
ngsfähigkeit dieser Spezies. 
en Teil unserer Serie stel- 
len wir 30 Disketten der Fred 
Fish-Reihe vor. 

Seite 72 
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Isnun: Fiietstesk m. Kart. 


Mashrwert: 1294 Joule 


Sehlank Mit überflüssigen Kilos haben 

nicht nur dauersitzende Pro- 
bleiben grammierer zu kämpfen. Damit 
mit Stil es nicht zum Konflikt zwischen 


Kühlschrank und Abmagerungs- 
willen kommt, greift das Pro- 
gramm „Abnehmen und schlank 
bleiben mit dem C64" ein. All- 
mählich wird das Körpergewicht 
um etwa ein bis eineinhalb Kilo- 
gramm pro Woche reduziert. 
Das Idealgewicht wird langsam 
aber sicher erreicht. Wie der 
Computer beim Abspecken hilft, 
steht auf 

Seite 28 


Ey 


i $ 
u JabeEn nlı Sr 
-fiich5 KRESERUED 


Alte Spielidee in neuer Aufma- 3D-Manorer 
chung: Das ist „Leviathan“ von auf 

English Software. Mit einer 3D- 

Vogelperspektive in Zaxxon-Ms- dem Mond 
nier und bekannten Defender- 
Elementen soll dem Raumgleiter 

mit dem ungeheuerlichen Na- 

men der Durchbruch gelingen. 

Drei Weltraumlandschaften, 

brutal bestückt mit mörderi- 

schen Raketenbasen, und feind- 

liche Kampfgeschwader wie 

Hornissen fordern des Keyboar- 

ders Geschicklichkeit und Reak- 

tionsvermögen. 
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Barbiepuppen und Stofftiere Drama ohne 
sind out — „Masters of the Uni- Ende 
verse“ sind in. Die beliebten, m 
scheußlichen Plastikfiguren „He- Fee 
Man“ und „Skeletor" haben jetzt 

} den Computerbildschirm er- 

| reicht. Das englische Software- 

N haus U.S.-Gold bringt, dem 

Trend der Zeit folgend, zwei Pro- 

\ gramme zur mehr als zweifelhaf- 

ten Thematik heraus. Die 

Schlacht zwischen Gut und ab- 

grundtief Böse inmitten von Bits 

und Bytes findet seinen Fortgang 

als Ärcadespiel oder Fantasie- 

Adventure. 

Seite 134 
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Das Vehikel der Innova- 
tion ist zuallererst die 
Technik. Sie richtet sich 
auf die Veränderung 
des Bestehenden, auch 
der Arbeitswelt. 


Aus einem Vortrag von 
Professor Dr. Ulrich Lohmar 


ihrem beruflichen Wirkungskreis 
immer mehr von immer weniger, 
und gerade deshalb sind wir so 
sehr auf die fachliche Qualität und 
Verläßlichkeit der Mitarbeiter 
überall neben uns angewiesen: 
Das Ganze kann nur gut werden, 
wenn alle ihren zuverlässigen Bei- 
trag dazu leisten. Das gilt jeden- 
falls für jede Arbeit im Rahmen 
arbeitsteiliger Unternehmen, Ver- 
waltungen oder Organisationen, 
deren Räderwerk auf dem lnein- 
andergreifen aller Teile beruht. 
Die Zukunft der Arbeit im näch- 
sten Jahrzehnt wird von fünf Ten- 
denzen bestimmt sein, die sich 
miteinander verschränken: 

e Flexible Kopfarbeit tritt mehr 
und mehr an die Stelle von einfa- 
cher Handarbeit. 

® Das Modell des statischen Le- 
bensberufes wird durch häufige 
Wechsel der Berufsbilder und 
der Arbeitsanforderungen abge- 
löst. 

® Dezentralisierung der Arbeit 
und Delegation von Entscheidun- 
gen verdrängen bisherige Zen- 
tralisierung. 

® Die bloße Teilnahme des ein- 
zelnen an der Arbeitswelt wird 
durch verantwortliche, kooperati- 
ve Teilhabe von Gruppen abge- 
löst. 

® Die Monotonie von Ärbeitsvor- 
gängen wird durch Kombinatorik 
und Kreativität zur Seite gedrängt. 
In vielen Unternehmen und Orga- 
nisationen wird es also nicht um 
den Einsatz von Menschen durch 
Technik gehen, sondern um eine 
neue Qualifikation der Mitarbei- 
ter, die es ihnen erlaubt, techni- 
sche und organisatorische Proble- 
me rechtzeitig aufzudecken und 
den Steuerungs- und Regelungs- 
aufwand in Grenzen zu halten. 
Dann jedoch ist es wirtschaftli- 
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cher, das Know-how der Mitarbei- 
ter weiterhin einzusetzen und es 
über zusätzliche Qualifikationen 
zu erweitern, als es in Datenban- 
ken zu speichern und nur der klei- 
nen Klasse von Experten zu über- 
antworten. 

Ein neuer Typ des Facharbeiters 
wird damit sichtbar: Er muß sich 
vielfältige Fähigkeiten angeeignet 
und ein breites Arbeitsspektrum 
haben. Die Kombination aus Ma- 
schinenschlosser und Elektroni- 
ker bezeichnet den Kern dieses 
neuen Berufsprofils in der Fach- 
arbeiterschaft. 


Umbau der Belegschaft 


Was haben neue Kommunika- 
tionsstrukturen und neue Füh- 
rungsformen nun wiederum mit 
Qualität zu tun und mit Qualifika- 
tion, ihrem subjektiven Ausdruck? 
Es wird nicht ohne den Umbau 
der Belegschaftsstrukturen abge- 
hen. Wir verfügen ja schon über 
ausgeprägte Erfahrungen, wie 
dieser Prozeß langfristig und mit 
hohem zeitlichen Vorlauf vor der 
Einführung neuer technischer Ent- 
wicklungen angegangen werden 
kann, um Reibungsverluste und 
Fehlschläge zu vermeiden. 

Dabei wird das überkommene 
Führungsmuster der Hierarchie in 
ihrer durchgängigen Über- und 
Unterordnung durch die neuen 
technischen Entwicklungen er- 
heblich eingeschränkt. Die koope- 
rative Arbeitsteiligkeit großer 
wirtschaftlicher und sozialer Ge- 
bilde macht es unmöglich, von 
oben herab alles durch Anord- 
nungen zu regeln, also hierar- 
chisch bis ins einzelne zu führen. 
Immer wichtiger werden daher 
das Zusammenwirken in Grup- 
pen, die Delegation von Verant- 
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wortung und Dezentralisierung 
von Entscheidungen. 

Führung muß sich auf Zielvorga- 
ben und Erfolgskontrolle konzen- 
trieren. Es geht also darum, eine 
neue Kommunikationsmoral an 
die Stelle der alten Arbeitsdiszi- 
plin zu setzen. Dadurch kann auch 
die Sozialpartnerschaft belebt 
werden und einen neuen Inhalt 
bekommen. 

Die vor uns liegende demographi- 
sche Entwicklung der deutschen 
Bevölkerung wird ein übriges be- 
wirken. Durch die „Bildungsrevo- 
lution“ der siebziger Jahre hat sich 
zweierlei ergeben: Der Anteil der 
studienberechtigten jungen Leute 
ist auf mehr als ein Drittel des je- 
weiligen Jahrgangs angestiegen, 
und zugleich stieg die Zahl derje- 
nigen, die nicht einmal einen 
Hauptschulabschluß schaffen. 
Vergrößert haben sich also gera- 
de die Anteile von jungen Men- 
schen, die ganz „unten“ oder ganz 
„oben“ auf der Bildungsleiter an- 
kommen. 

Dennoch wurden die Schulzeiten 
verlängert. Das hätte aber nur 
dann Sinn gemacht, wenn man in 
den Schulen mehr von dem lernen 
könnte, was man im späteren Be- 
rufsleben braucht. Da der techni- 
sche, ökonomische und gesell- 
schaftliche Wandel es aber un- 
möglich macht, für dreißig oder 
vierzig Berufsjahre im voraus an- 
zubieten, was an neuen Änforde- 
rungen in dieser Zeit auf die Men- 
schen zukommen wird, können 
die Schulen schon aus diesem 
Grunde darauf nicht ausreichend 
vorbereiten. Schüler und Studen- 
ten müssen heute also vor allem 
lernen, wie man lernt, 

Unser Schulwesen sollte getrost 
auf einen wesentlichen zeitlichen 
Anteil an der Ausbildung verzich- 


ten, den die Menschen dafür mit $ 
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mehr Sinn während ihres Berufsle- 
bens für eine weiterführende Aus- 
bildung nutzen könnten. 
Weiterbildung muß in unserer 
konkreten Situation vor allem bei 
den betrieblichen Planem und 
Entscheidern ansetzen, wenn sie 
rasch wirksam werden wall Das 
wiederum erfordert eine Auflok- 
kerung der oft noch starren Hand- 
lungsstrukturen von Unternehmen 
und Organisationen. Für viele von 
ihnen ist die technische Realisie- 
rung einer nächsten Entwick- 
lungsstufe offenbar erheblich ein- 
facher als deren neue organisato- 
rische Einbindung. 

Die Führung eines Unternehmens 
muß sich unter den veränderten 
Bedingungen der Kommunikati- 
onsgesellschaft auf folgende Ziele 
konzentrieren: 


e Der Führungsstil muß Qualität 
erlebbar machen, eben weil sie 
ein Ereignis ist. 

® Nach innen gesetzte Ziele müs- 
sen erreichbar sein und dürfen 
die Menschen nicht überfordern, 
sondern motivieren. 

® Nach außen gegebene Ver- 
sprechen müssen mit der Realität 
übereinstimmen und eingehalten 
werden. 

e Die wechselseitige Verläßlich- 
keit aller Mitarbeiter ist eine Vor- 
aussetzung zur Erreichung dieser 
Ziele. 

Unternehmen sind heute keine 
isolierten sozialen Handlungsein- 
heiten mehr. Ihr Aktionsradius 
muß den erweiterten Markt errei- 
chen, von dem sie abhängen. Die 
Einbeziehung aller Partner am 
Markt in die Diskussion, Planung 


und Entscheidung des Unterneh- 
mens ist deshalb sinnvoll. 

Die durch die technische Entwick- 

lung bedingten Veränderungen 
auch des Organisationsgefüges in 

der Arbeitswelt sollten uns auch 

dazu veranlassen, den personel- 

len Wettbewerb der Mitarbeiter 
untereinander und gegeneinan- 

der durch mehr kameradschattli- | 
ches Zusammenwirken zu ergän- | 
zen. Die personelle Konkurrenz ist | 
heute zu ausgeprägt, und dies um | 
so mehr, je größer ein Unterneh- 
men oder eine Organisation ist. | 
Auch aus ökonomischen Gründen | 
müssen wir uns daran erinnern, 

daß wir alle neben einem Hirn 
auch ein Herz haben und vor al- 

lem Mensch bleiben möchten. 


Kopieren geht 
über Studieren 


Ist Software patentierbar oder 
nicht? Ist sie ähnlich zu schützen 
wie eine Symphonie oder ein Ro- 
man? Vor diesen Fragen standen 
Japans Behörden, als es darum 
ging, den Kopier-Wildwuchs zu 
stoppen. 

Im April hat die japanische Regie- 
rung Vorschriften erlassen, die es 
erlauben, Computer-Programme 
urheberrechtlich zu schützen. 
Dies wird heimische und fremde 
Software-Produzenten etwas beru- 
higen, denn ihre Hauptsorge galt 
bisher dem unterlaubten Kopie- 
ren ihrer Produkte. Doch ganz 
werden sie ihre Sorgen nicht los. 
Die japanische Regierung — wie 
auch die US-Behörden — stuft Soft- 
ware als „geistiges Eigentum" ein, 
etwas also, dessen innerer Wert 
bedeutend größer ist als die Scha- 
le, in dem es daherkommt. 

Die World Intellectual Property 
Organisation (WIPO), eine Unter- 
organisation der Vereinigten Na- 
tionen, hat Entscheidungshilfen 
geschaffen, um geistiges Eigen- 
tum in zwei Gruppen zu klassie- 
ren. 

Da gibt es einmal das „industrielle 
Eigentum“ in Form von Erfindun- 
gen, Markenzeichen, Konstruk- 
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tionsdetalls und Herkunftsbe- 
zeichnungen. Der zweite Begriff 
heißt „Urheberrecht“ oder Copy- 
right. Darunter fallen literarische, 
musikalische, künstlerische, foto- 
grafische und filmische Werke. 
Daß die Japaner der Computer- 
Software den Status „Urheber- 
recht“ geben, hängt mit den for- 
malen Gemeinsamkeiten der Soft- 
ware mit Literatur, Musik und 
Kunst zusammen. Diese Gruppe 
von Produkten ist nicht patentier- 
bar — im Gegensatz zu den indu- 
striellen Werken. 

Kein Zweifel, daß Software eine 
nicht minder überzeugende 
Schöpfung ist als Hardware. Beide 
haben ihren Ursprung im Innern 
des menschlichen Geistes, wo die 
Dinge in der nicht-materiellen 
Form der Gedanken ausgedrückt 
werden. Beide sind Resultate ei- 
ner kreativen Tätigkeit, die zu ei- 
nem hilfreichen Werkzeug für die 
Menschheit werden kann. 

Beim Austritt aus dem Geist in die 
materielle Welt wird die Hard- 
ware ganz eindeutig zu Materie. 
Im Gegensatz zur Software, die 
ihre geistigen Werte mitnimmt in 
die profane Umgebung. So hatten 
es die japanischen Beamten nicht 
leicht, als es darum ging, Kriterien 
für den Softwareschutz zu schaf- 
fen. Ist die Programmentwicklung 


WWW.HOMESOMPUTERWORLD.COM 


nicht so etwas wie eine industriel- 
le Entwicklung — und somit paten- 
tierbar? 

Es mag menschliche Unvollkom- 
menheit sein, Neid oder was auch 
immer: Wenn es um die Nutzung 
einer Erfindung oder einer Idee 
geht, gibt es Konflikte um das Ei- 
gentumsrecht. Um diese Konflikte 
zu lösen, muß klar sein, wer als 
erster auf die Idee kam. Und um 
die Lösung zu erleichtern, haben 
die meisten Staaten Stellen ge- 
schaffen, welche Daten über ma- 
terielle und intellektuelle Erfin- 
dungen sammeln. 

Patentämter und Ämter für geisti- 
ges Eigentum wurden ins Leben 
gerufen und die Bestimmung des 
Urheberrechts institutionalisiert. 
Zu den staatlichen Behörden 'ka- 
men internationale wie die WIPO, 
wenn Rechte in einem fremden 
Land geschützt werden müssen. 
Die meisten Staaten schauen dar- 
auf, daß ihre Bürger die Rechte 
von Bürgern anderer Staaten re- 
spektieren. Andere gehen davon 
aus, daß das Kopieren von frem- 
den Ideen, woher sie auch kom- 
men mögen, vollkommen in Ord- 
nung ist. 

Bis vor kurzem gab es zwar regel- 
mäßig Streit über Urheberrechts- 


‘fragen. Doch verglichen mit der 


heutigen Situation war die Ver-»> 


Typen, auf die Ihr nicht länger warten müßt! 
@ 6510 CPU C 64 @ 325572-01 VC 1541 
@ 6526 CIAC 64 LOGIC ARRAY 

@ 6569 PALC64 (VIC) ®8502 CPU C 128 

@ 6581 SID C 64 @ 8701 OZLC 128 

@ 901225-01 CHAR-ROM ®@ 8721 PLAC 128 

@ 901226-01 ® 8722 MMU C 128 


BASIC-ROM @ 8563 RI CRT- 
© 906114-01 C C128 
ADRESSMANAGER @ 8566 R 3 VIC C128 
@ 901229-05 ROM ® Netzteil C 64 
VC 1541 @ Netzteil C 128 
© 325302-01 ROM @ 8501 C 16 
VC 1541 ® 8360 C 16 
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Folge 1: Die neue Connection 


Von Flensburg bis Garmisch gibt's 
jetzt Commodore-Chips ab Lager. In einer 
Auswahl, die Ihr so leicht nicht nochmal 
findet. Einfach Bezugsquellen-Nachweis 
anfordern! 
Händler-Anfragen erwünscht. 


Von &@ beauftragter Exclusiv-Distributor für die 
Commodore Semiconductor Group: 


Elektronische Produkte 
EP Meyerhoff KG 


Lehmkuhler Weg 28 - 4010 Hilden 
Telefon 02103/69003 


Hotline, 


gangenheit ein Copyright-Para- 
dies. Die Gesetze und Vorschrif- 
ten gingen nicht von einer Welt 
aus, die vollgestopft ist mit Mög- 
lichkeiten zum Kopieren — sowohl 
von materiellen wie von ideellen 
Dingen. 


Heutige analoge und digitale Auf- 
zeichnungssysteme sind sogar in 
der Lage, während des Kopierens 
die Qualität eines Originalpro- 
dukts zu verbessern. Oder der 
Code eines Programms wird fort- 
laufend ausgetauscht, ohne daß 
sich die zugrundeliegenden Ideen 
ändern. So entsteht — ohne Inno- 
vation — aus einem Produkt ein 
neues. Die Mittel zum Kopieren, 
Transportieren und Verbreiten, 
die heute jedem Bürger zur Verfü- 
gung stehen, weisen eine solch 
hohe Qualität auf, daß der Schutz 
von geistigem Eigentum keine 


x > 


dem kopiert werden. Die bisheri- 
gen Barrieren, vor allem die auf 
wendige Prozedur des Kopierens 
selbst, sind praktisch alle ver- 
schwunden. 


Neue Möglichkeiten, das geistige 
Eigentum anderer zu schützen, 
müssen deshalb gefunden wer- 
den. Neue Wege auch, wie der 
Besitzer einer Idee davon profitie- 
ren kann, wenn ein anderer sie 
nutzt. Sonst besteht die Gefahr, 
daß den kreativen Leuten einer 
Branche die Lust auf Innovation 
vergeht, 


Doch auch wenn die Kopierpro- 
bleme gelöst sind, bleibt immer 
noch die Einstellung der meisten 
zum Kopieren selbst. Viele haben 
das Gefühl, daß das Übernehmen 
einer geistigen Idee etwa das glei- 
che sei wie das Abschreiben ei- 
ner Formel aus einem Mathema- 
tikbuch. Daß es in Ordnung ist, 
wenn Software-Pakete, Videobän- 
der und Musikkassetten über- 
spielt werden. Wofür sonst sind 
denn alle die Kopiereinrichtungen 
da? 


Charles P. Lecht (CWN) ® 


10 @UM Juni/87 


150 PC: 10 stellt Commodore der Stif- 


tung Deutsche Sporthilfe zur Verfü- 
qung. Damit sollen Aktive wie auch In- 
stitutionen und Organisationen des 
deutschen Sports, also Dachverbän- 
de, Vereine und Leistungszentren 
wirksam unterstützt werden. In Frank- 
furt überreichte Josef Neckermann 


Vorsitzender der Stiftung Deutsche 
Sporthilfe (rechts) und Winfried Hoff- 


eiter von links schäfts- 


führer Commodore, den ersten PC 10 

an Christian Schebitz, Steuermann im 

deutschen Zweier- und Vierer-Bob 

Mitte), er will den PC' im Rahmen sei- 
udiums einsetzen. 


BATEX-P: 
Gegenstelle 


den Datentransporteuren via DA- 
TEX-P. Kostete die Telefonverbin- 
dung zum nächsten PAD (dem 
Knotenrechner der Post) bislang 


den normalen Tarif, für die Be- 
wohner der Großstädte also die 23 
Pfennig Ortsgebühr im Acht-Minu- 
ten-Takt, so schnellten die Preise 
mit Beginn des neuen Quartals um 
den satten Faktor 10 auf 23 Pfen- 
nig für 50 Sekunden. 


Für diese glatte Rechnung erhal- 
ten wir im Gegenzug künftig die 
überaus großzügige Regelung, im 
gesamten Bundesgebiet die glei- 
che Nummer für den DATEX-P- 
Zugang wählen zu dürfen — mer- 
ken Sie sich also die 01 34 11, auch 
wenn Sie sie aus Kostengründen 
fortan nur noch mit leichtem Ma- 
gendrücken wählen werden. 


Diese Maßnahme — so erklärt uns 
die Post in ihrem väterlichen Be- 
streben, es allen Teilnehmern 
gleichzutun — mußte ergriffen 
werden, weil die Bewohner der 
eher ländlichen (das heißt PAD-lo- 
sen) Gebiete zugegebenermaßen . 
arm dran waren. Denn die haben 
ja immer schon etwas tiefer in den 
angen müssen. Daß diese 
hücket nun aber da- 
beseitigt wird, allen Kom- 
gleiche 
Unsummen aus der Tasche zu zie- 
hen, anstatt dafür zu sorgen, daß 
der DATEX-P- Dienst im ganzen 
Land zum Ortstarif angeboten 
wird, das will mir nicht in den 
Kopf. 


Christian Vogler, 25jähriger Betriebswirtschaftsstudent aus Heilbronn, fährt für 


RUN. Er wird in diesem Jahr an der internationalen deutschen Bergmeister- 


schaft teilnehmen, für die elf Läufe vorgesehen sind. Sein Fahrzeu 


in knallro- 


ter Martini MK 42 der Formel 3. Der kraftstrotzende Klein-Bolide ist mit einem 
170 PS starken 2Liter-VW-4Zylinder-Einspritzmotor ausgerüstet. Zwar treibt 


Christian Vogler schon seit sieben Jahren Motor- und Rennsport, fiel aber erst 


voriges Jahr als vierter der Württembergischen ADAC-Kartmeisterschaft und 


Bester eines ADAC-Rennsportlehrgangs auf. Das hier abgebildete Foto wurde 
bei einer Testfahrt in Hockenheim aufgenommen. 
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O& MD Hamburg 


Ja, informieren Sie mich, Sn 
wie ich gemeinsam mit Greenpeace zur Erhaltung unserer tr 


Lebensgrundlagen beitragen kann. Schicken Sie mir das 


Informationsmaterial an diese Anschrift 


ha 
| 


« 


Name 


Straße/Nummer 


PLZ/Ort 252491 
Bitte schicken Sie diesen Coupon im Umschlag 
mit 2,40 DM Unkostenbeitrag in Briefmarken an: 


Greenpeace e.V., Hohe Brücke 1, 2000 Hamburg 11 
Spendenkto.:Nr. 2061-206 , Postgiro Hmb., BLZ 200 100 20 I 


Da a a a ee 


GREENPEACE _ 


—. Pr BR 


Elektr. 
BAUTEILE 


Teile für Commodore- 


Rechner: 

6526 VIA UI, U2 24.00 
6510 CPU U7 24.00 
6581 Sound-Chip U18 50.00 
6569 Video-Chip U19 69.00 
906114 PLAUI7 24.00 
325572 40.00 


EPROMS: 


)£ 


N + 

BDEN 
og 
0565 


Allg. Elektronik 


fordem Sie unsene Bektronik-Info an. 


WIDERSTANDE 
1/4 Watt 


Sock-Fockung pro Wert nur 2.50 


IC-FASSUNGEN 


pro Pin 0.02 


Präzision pro Pin W, 5 


DISKETTEN 


Nur geprüfte Ware aus der Produktion 
narhensr Hersteller!!! 


3"25-Disketten Be, 
DELA- DISK 9.90 


3"5-Disketten 


95 27.90 


SE ing 


Disketten-Zubehör 


Aufkleber tür Diskettenhüllen 

50 selbstklebende Klarsichttaschen zum 
Aufkleben auf die Diskettenhülle. Schluß mit 
der Unordnung in der Diskeitenbox. 

Preis pro 50 Stück 8. 90 


Reinigungsset 7.90 
für 5"25 Diskeftenlaufwerke 
11.90 


— 


DELA-PRINTER MP/I/180 


Der neue Standard bei Matrixdruckern 
180 Aachen pro Sekunde 

Oratiktähig 

7K Buffer (Option 15K) 

| I nationale 
eigene Zeic ätze 


Epson/IBMkompatibel 
e 


nsötze 2 Speicher für 


Lommo 
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STAR NL 10 699.00 
CITIZIEN 120D 498.00 


Drucker-Zubehör 


Wiesemann- 


Interface 92000 129.00 
Anschlußkabel 29.50 


für Userport on Centronicsdrucker 


Serielles 
Druckerinterface 


t +4 


89.00 


MODEMS 


Universalmodem 99.00 


MONITORE 


COMMODORE 1802 
Farbmonitor 559. 


- 15 MHz - 12° 
- Videoanschluß 


Monitor-Zubehör 


Monitorständer 24.90 


enkbo 


JOYSTICK 


MICRO FUN 19.90 
COMPETITIONpro 27.90 


Der fast schon legendäre Joystick 


verschießfreie 


MOUSE 


DELA-MAUS 99.00 


- Das Eingabemedium der Zukunft 

- loüft überall, wo Eingabe über Joystick 
ch ist 

— benötigt nur kleine Arbeitsfläche 

- für C6X, C128 + Schneider 


DELA-Lightpen 37.90 
DE md ID 


- arbeitet mit allen Lighipen- 
Malprogrammen 

- gute Auflösung 

- große Empfindlichkeit 
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Datenrecorder 39,50 


für C64, C20, C128 


68000 


Atari ST Eprombank 49.00 


- 128k Epromkapazitöt 14x27256) 
In Desktop integrierbar 
- Für Einbau in Modulgehäuse vorgesehen 


Passendes Modulgehäuse . 


Amiga Laufwerk 448.00 


720 KB - 3"5 Disk 


BETRIEBS- 
SYSTEME 


= 
a 
RE 


Suerungen 


zı 11H 


Ihre eigenen 


Do 


rogromme einbauen. 


1-4fach 
Betriebssystemkarte 


- 1x16/32-Eprom 
besonders kleine Ausführung 
- für SX64, 1541, MPS802 usw 


\eerplatine 5.00 ter.m. Schalter 29. 90 


2-fach 
Betriebssystemkarte 


IxBK 


om + Kernelrom 


\seroiotine 9.00 0 Schoter 24.90 


3-fach Betriebs- 
systemkarte für C128 


- für 64er Mode 
- 1x32K-Eprom m. 3 Betriebssystemen 
- problemloser Einbau 


lserplotine@r fertig m Schoter30.00 


5-fach 
Betriebssystemkarte 

- 2xBK oder 2x16K-Eprom + Kernelrom 
- obsturzire 


leerplatine 12- o. Schalter 29.90 
0 


m. Schalter . 


Superbetriebs- 
Systemkarte 79.00 


romkarte 
m. Gehäuse 49.50 


64K-RAM-FLOPPY 149.00 


- Blitzschneller Zugriff auf Programme 

- Geröteadresse 

- normaler load-/Save-/Open-Befehl 

- Directory 

- Editor 

- komplett mit Steuerprogramm und RAMs 
bestückt 

- Betrieb am Expansionsport 

- im Gehäuse 

- läuft mit Speed-Dos und anderen 
Erweiterungen 


[ORT 


256K Superepromkarte 
inch Gehäuse 109.00 


- 256K Speicherkapazität 

- 8 Steckplätze für 8/ 16/32K-Eproms 

- Directory-Funktion und Modulgenerator 

- Programmstart aus Directory 

- kein Eingriff in den Rechner notwendig 
ohne Vorkenntnisse zu betreiben 

- Präzisionssocke 


Epromkarte 2.1 
komplett 14.00 
leerplatine /» 

xBK- oder 1x16K-Eproms 

obschaltbar 


Epromkarte 4.1 
komplett 24. 90 
leerplatine 9.9 


- 2xBK- oder 2x16K-Eproms 
BK-Modulprogramme oder 
für 4 exieme Betriebssysteme 
sseischalter 
d abschaltbar 
onssockel 


E karte für C128 
> $ = Der Mode 39.00 


latine 
DELA-MO 7.90 
für 1x8/16K-Eprom 


Aodul/Betriebssystem) 
Igehaüse 


Eprommer In. Gehäuse 129.00 

ür 27 16-27256, E-Eproms, 27 CXXX 
Programmierspannungen: 

12,5V 21V, 25V 

- Schnell- und Longsomprogrammlerung 

- Textoolsockel 

- kein ext, Netzteil, keine Schalter 

- Modulgenerator für 8/16K-IModlule für 
bel. Programmzahl frei definierbares 
Stortmenue 

- Auslesen, Leertest, Vergleichen, Kopieren 

- Userportbetrieb 


29.50 


Aufrüstsatz 
für Eprommer II 


Di atz 


189.00 


prommer II + 64K-Superepromkarte 


Kombi-Pack Il 
Kombi-Pack Ill 249.00 


Eprommer II + 256K-Superepromkarte 


IC-Tester 134.00 


- testet fast alle TTL-IC’s bis 20 Pins 
- selbständiges Erkennen der Typen 
- Dauertestfunktion 

- Software auf Diskette 

- Textoolsockel 


Epromlöschgerät 115.00 
Löschset 43.50 


- Selbstbauset ohne Gehäuse 

- alle Anschlußteile und Fassungen 
- Spezial UV-Röhre 

- 220 Volt Anschluß 


STEUERN + 
REGELN 


mit C64/C128 


- Steuerungssystem für Eisenbahn, Licht- 
effekt. Alarmanlagen uva. 
- bis 15 Module am Userport 
- alle Karten mit Schraubanschlüssen 
- jede Karte hat einstellb. Softwarsadresse 
- frei wählbare Zusammenstell. der Karten 
- leichte Programmierung unter 
Basic/Masch, 
- jede Karte auch einzeln zu betreiben 
as System besteht aus: 


Relaiskarte 98.00 
- 8 Relais mit je 1xUm 
- 5A Schaltleistung 


Digital- 
eingabekarte 49.00 


- 3 Kanäle mit je 8 TTl-Eingängen 


Digital- 
ausgabekarte 49.00 


- 3 Kanäle mit je 8 TTl-Ausgängen 


Zubehör 
Verbindungskabel Karte-Karte 5.90 
Verbindungskabel Karte-Userport 29.50 


Programmier- 
hilfemodul 49.00 


- einfaches erstellen von Steuerungs- 
programmen 
- Abspeichermn v. lauffertigen Steuerungen 


$/4-Modul 29.50 


- Turbo-Tope 
- Turbo-Disk 
- DOS 5.1 

- Old/Renew 


Profi-Betriebs- 
system 30.00 


- außen aufsteckbar 

- DOS-Befehle auf Flasten 

- viele Sonderfunktionen mit CTRl-Tasten 
= 7x schneller Laden mit 1541 


Modulgenerator 25.00 
- unabhängig vom Eprommer 

- für B/16K \odule 

- frei definierbares Einschaltmenue 

- beliebige Anzahl von Programmen 


Hardcopy-Modul 49.00 


- druckt jeden Bildschirminhalt 

- mit oder ohne Sprites 

- farbgetreue Grauobstufung 

- abspeichern von Bild u, Sprites für WVeiter- 
verarbeitung mit anderen Programmen 

= für Centronicsdrucker und MPS 801 
kompatible 

- Centronicsinterface am Userport 


DELA-DOS 79.00 


Das neue Supermodul für den Expan- 
sionsport. Für alle, die ihren Rechner und 
ihre Floppy nicht umbauen wollen. Fast 
so kompatibel wie die Paralleisysteme. 
- 8x schneller laden 

- 8x schneller soven 

- Hardeopyfunktion für Text und Grafic über 


area 

- DOS 5.1-Befehle integriert 

- Flastenbelegung mit Dir, Load, Save usw. 

- Rahmen und Hintergrundfarben über 
Tastatur verstellbar 

- erweiterte Cursorfunkfionen 

- Centronicsschnittstelle am Userport 

Das Originalbetriebssystem bleibt 

voll erhalten! Das bedeutet: 

- kein Verlust der Cassettenroutinen 

- kein Verlust der RS232-Schnittsielle 
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EXPANDER 


Steckplatz- 

erweiterung 99.00 
Bausatz 69.00 

- vier Steckplätze 


- über Tastatur umzuschalten 
-Resetlaster 
- alle wichtigen Signale geschaltet 


Userportdisplay 29.50 


- LED-Anzeige der Userportsignale 
- Durchgeschliffener Userport. Korte kann 
zwischen Userport und jedes Gerät 
escholtet werden. 
- Signale PBO-PB7, Pı 
werden angezeigt 
- Ausführl. Anleitung m. Demo-Programmen 


3-fach Userport- 
expander 35.00 


- kein Umstecken am Userport mehr 

- Centronicsschnittstelle bleibt durch ein- 
gebaute Elektronik in Betrieb 

- wenig Platzbedarf [2 Stecker senkrecht! 


SONSTIGES 


CPM-Modul 169.00 


Machen Sie aus Ihrem C64 einen Z80- 
Rechner. Das Modul ist voll CPM-fähig. 

- eigener Z-80-Prozessor 

- 2MHz Toktfreguenz 

- C64-CPM uneingeschränkt louffähig 

- orbeitet mit Speed-DOS etc. 

- mit Gehäuse 


80-Zeichenkarte 169.00 


Einfach aufstecken und $ie haben sofort 

80-Zeichen auf dem Bildschirm 

- voll kompatibel zu BASIC und CPM 

- softwaremäßige Umschaltung zwischen 
40- und 80-Zeichendorstellun 

- zwei Zeichensötze im Lielerumton 

- zwei weitere Zeichensätze nochrüstbor 

- frei verschiebbarer Bildschirmspeicher 
Deshalb Anpassung an andere 
Maschinenprogramme möglich. 


Expansionsport- 
adapter 29.50 


DELA SPEED 149.00 


Die Erweiterung für alle, die schon 
SPEEDDOS o.ähnl. Parallelübertrager 
besitzen. _ 


Freeze Frame 129.00 


Version MK 3 
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Parallelset 

Für alle, die keine Parallelübertragung 
besitzen € 

- Verbindungskabel 1541-Userport 

- ROM-Adapter für C4 2 

— Diskette m. Parallelbetriebssystem für C64 

Damit können Sie DELA-SPEED auch ohne 
fremde Porallelübertrager benutzen. 


DELA SPEED + 
Parallelset kompl. 189.00 


Gehäuse f. Eprommer Il 
und 256K-Karte je 19.50 
Winkeladapterplotine 7.90 
lochrosterkarte UP/Ex-Port 
Lochrasterk. für Ex-Port 
ochrasterk. für Userport 


. 


Modulgehäuse 


— 


Userport-Resettaster 
Userportstecker 

Gehäuse hierfür 
Modulportstecker 
Kühlventilotor 220 Volt 
Verb.-kobel Userp.-Centronic 


VOOLWA—-ANON 
8888883888 


DV 


& 


C16/C116 


Eür C16-Fons 
it 
AK man = 59.00 


Lochraster- 
Experimentierplatte 13.90 


Betriebssysteme! 


Befehls- und 
Speichererweiterung 69.00 


SpezialmodulzurAufnahme 

für eigene Bosic- und Befe 

Zusötzliches 8K-RAM. 

- kein Speicherbedarf im Rechner 

- kompatibel mit anderen 
Befehlserweiterungen 

- Betriebssystem zur Erstellung eigener 
Befehlserweiterungen auf Diskette 

- Viele Hilfsfunktionen zum Einbaven 


Abdeckhauben aus PVC 
Kamen ulierend — Antistatisch - Stoßfest 
Atari 520 ST, Atari 130 XE, IBM PC-XTI 


ie 1 1.90 


8 Kanal 
Logik-Analisator 139.00 


- 8 Datenkanäle auf dem Bildschirm 
darstellbar 

- max, Auflösung 8MHz 

- interner oder externer Takt wählbar 

- 8K Datenpuffer 

- Ma über Rechner oder ext. Trigger 
steuerbar 

- Meßergebnisse auf Disk- oder Drucker 
auszugeben ; 

- komiortable Steversoftware 


Neue Rufnummer ob 
voraussichtlich 15.5.87 


Bestellung: 02 21/51 7081 02 21/715 17-20/21/22 
Telefax: 02 21/715 17-60 
Anrufbeantworter: 02 21/51 7084 02 21/715 17-30 
Mailbox(300bd 7/E/l): 0221/51 4450 02 21/715 17-40 
Kundenberatung: 02 21/51 7085 02 21/715 17-50 


Nachnahmeversand Die Epasnn 7.50 DM b. Vorkasse 4.- DM. Auslandsbestellungen nur 


gegen Vorkasse +15.-D 


Versandkosten. Wir liefern auf Ihre Rechnung und Gefahr zu den 


aufs- und Lieferbedingungen des Elektronikgewerbes 


@ Fordern Sie unseren kostenlosen, farbigen Katalog schriftlich an! ® 


Dela Elektronik GmbH 


BESTELLUNG + VERSAND 


Maastricher Straße 23 : 5000 Köln 1 : Tel.0221/517081 


Neue Anschrift ab 15.5.1987 


Merkenicher Straße 87-89 :5000 Köln 60 : Tel.0221/71517-20-22 


Viele weitere, interessante Angebote 
finden Sie 
in unseren Filialen (Ladenverkauf) 


Köln 1 
Essen 


Maastricher Straße 23 
Schützenbahn 11-13 


München 22 Bürklein Str.10 
Händleranfragen erwünscht! 


Vertrieb Holland: GIMA-Printservice, Tel. 077/870937, Pb, 186-5900 AD-Venlo 
Vertrieb Beigien: Second-Software-Service, Diestestraat 133/8, 3000 Leuven 


Vertrieb Dänemark: D/C Trading, Sondergarde 
i g Steinhauser Stra 


Vertrieb Schweiz: DIGISWIS: 


24, 9240 Nibe 
Be 44, CH 6300 Zug, Tel. 042/413926 


Vertrieb Italien: Fa. Morhöfer Via Lorenzo i Magnifico 148, 100162 Roma, Tel. 6/4270418 


nNetline 


Sicher, die Post denkt nun mal 
verstärkt an den Absatz ihrer (ei- 
genen) Modems, und zwar rasch, 
bevor die nun zulassungsbe- 
rechtigten (nicht mehr!) privaten 
Modems kommen und mit der 
Macht eines freien Marktes (igitt) 
für vielleicht 50 Mark Kaufpreis 
Eingang in die Slots eines PC fin- 
den. Denn wer weiß, wie lange 
die sich noch abblocken lassen 
werden. (Darüber ein andermal 
mehr ....). Aber das ist auch alles 
nur Nebensache. Machen wir uns 
nix vor: Wir leben auch nach 10 
Jahren Computererfahrung noch 
immer in einem kommunikations- 
technischen Entwicklungsland. 
Daran haben die großangelegten 
Kabelversuche und erst recht die 
Riesenseifenblase Btx (die be- 
kanntlich überall für 23 Pfennig 
bereitwillig zerplatzt) nichts, aber 
auch gar nichts geändert. Nein, 
weltweite Kommunikation und der 
Zugang zu wirklich interessanten 
Informationen gehen halt nur über 
DATEX-P. Das scheint aber der 
Bundespost, Deutschlands größ- 
tem  Innovations-Verhinderungs- 
Institut, noch nicht aufgegangen zu 
sein. 

Um hier einem Mißverständnis 
vorzubeugen: Es ist völlig gleich- 
gültig, was ein Dienst (wer auch 
immer ihn anbietet) kostet, wenn 
er nur hinreichenden Nutzen 
bringt. Es wäre auch zu verkraf- 
ten, wenn die Deutsche Bundes- 
post die Preise für einen ihrer 


Dienste innerhalb einer Nacht um 
den Faktor 10 erhöht (obwohl: stel- 
len Sie sich mal vor, die Post er- 
höht die Transportgebühr für Brie- 
fe am 1. Juli von, 80 Pfennig auf 8 
Mark!!l). Das alles spielte keine 
Rolle, wenn sich nur der Dienst im 
Gegenzug um ein vernünftiges 
Maß verbessern würde... 

Aber genau das passiert eben 
nicht. Seit Jahren verspricht uns 
die Post, endlich vernünftige 
Übertragungsraten auch mit Aku- 
stikkopplern zuzulassen. Wir müs- 
sen es leider immer noch hinneh- 
men, daß DATEX-P in der Mittaas- 
zeit oft besetzt ist, Und wir müssen 
auch damit leben, daß Störfälle 
wie der tagelange Ausfall des 
PADs in München zum täglichen 
Kommunikationsgeschäft gehö- 
ren. Und es gibt noch mehr Bei- 
spiele: Warum, frag' ich mich, än- 
dert die Post zentral alle paar Mo- 
nate die (supergeheimen) Paßwör- 
ter, die sie ihren Kunden dann per 
Einschreiben zustellt, ein Ein- 
schreiben, das in einem großen 
Unternehmen jedem x-beliebigen 
ausgehändigt wird oder gar nicht 
erst ankommt? Warum kann nicht 
jeder Benutzer seine Kennworte 
selber bestimmen? Warum dauert 
(wie bei uns) eine Modem-Umstel- 
lung von 300 auf 1200 Baud 3 (in 
Worten: DREI) Monate, und war- 
um wird die Umstellung schließ- 
lich durchgeführt, ohne uns dann 
davon in Kenntnis zu setzen? 

Der DATEX-P-Dienst, so wie er 


sich uns gegenwärtig darstellt, ist 
streckenweise schlichtweg un- 
brauchbar. Sein einziger Plus- 
punkt — und das läßt uns täglich 
die vielen kleinen Probleme ver- 
gessen — ist, daß wir damit an die 
vielen, vielen amerikanischen Da- 
tenbanken kommen (und an die in 
Deutschland leider so seltenen 
Dienste A la Deutsche Mailbox, mit 
Zugang zu Telex usw. usw.). Das 
und nur das ist die einzige Exi- 
stenzberechtigung dieses Post- 
dienstes — und er hätte es ver- 
dient, nicht so stiefmütterlich in 
die äußerste Ecke geschoben zu 
werden. Wenn wir uns die Zuge- 
ständnisse bei den Lieblingskin- 
dern der Post — Btx und der bun- 
desweiten Verkupferung — ver- 
gegenwärtigen, drängt sich uns 
vielleicht doch die Vermutung auf, 
daß die 25 000 DATEX-P-Teilneh- 
mer die Zeche für die völlig ver- 
fehlte gelbe Kommunikationspoli- 
tik bezahlen müssen. Solange in 
Bonn noch das Posthorn anstelle 
eines Terminals (oder eines Lap- 
tops) regiert und die Post ein 
Volksvermögen dafür verschwen- 
det, Kupferseile in die Erde zu 
buddeln, um sie in ein paar Jahren 
wieder auszugraben und durch 
Glasfasern zu ersetzen, werden 
wir uns weiterhin mühsam durch 
den gelben Kabelsalat drängeln 
müssen. DATEX-P: Gegenstelle 
eingeschlafen... 


Der Autor, Martin Landua ist bei der IBD 
(Frankfurt) für Softwaredesign zuständig. 


Unterstützung für Einsteiger 


Aller Anfang ist schwer. Nicht mit 
uns. Das wissen Einsteiger in die 
Welt der Commodore-Computer. 
Drei Jahre Kontakt mit unseren Le- 
sern lassen uns die häufigsten Pro- 
bleme klar erkennen. Eine gute 
Voraussetzung und guter Grund, 
Computer-Neulingen zur Sattel- 
festigkeit zu verhelfen. 

Kostenlos und ohne jede weitere 
Verpflichtung können Sie mit dem 
nebenstehenden Original-Ab- 


_ schnitt Informationen für den rei- 


bungslosen Einstieg in die Welt 
des C64 anfordern. Was müssen 
Sie tun? 

Senden Sie den Änforderungsab- 
schnitt (keine Fotokopie etc.) mit ei- 
nem ausreichend frankierten (DM 
1,90) und an sich selbst adressier- 


ten DIN-AS5-Rückumschlag an: 
CW-Publikationen 
Redaktion RUN 
Stichwort „Einstiegshilfe“ 
Postfach 40 04 29 
8000 München 40 


Die BASF-Datentechnik hat ihr Dis} 
tenformat ergänzt. Hinzugek t 
die Flexy-Disk 3.5 Zoll 2HO mit 2 Me- 
abytes unformatierter Spei 
zität und eine Archivbox für 3,5-Zoll- 
Disketten. 


Farbtupfer in der 
Grauzone 

Die Ratlosigkeit vieler Computer- 
Freunde ist groß. Wann beginnt 
die Strafbarkeit beim Programm- 
kopieren, darf er, oder darf er 
nicht mit Kopien arbeiten, sie etwa 
zu Hause ausprobieren, um sich 
dann für das ein oder andere Pro- 
gramm zu entscheiden? RUN und 
der Anwender-Club München 
(ACM) hatten geladen. Von gro- 
ßem Ändrang konnte man an die- 
sem 25.4. nicht gerade sprechen. 
Manch einem war der Biergarten 
lieber als der „Bierkeller" im Lö- 
wenbräu. Doch die, die da waren, 
fanden Super-Bedingungen vor: 
ungestörtes Ausprobieren an 
über 20 Geräten verschiedenster 
Hersteller und fachliche Beratung 
durch RUN-Redakteure und Club- 
mitglieder. Wer sich damit nicht 
zufrieden gab, sein Konterfei, per 
Video-Kamera, Computer und 
Drucker mit nach Hause zu neh- 
men, spielte an den Geräten her- 
um oder stürzte sich in komplizier- 
te Materie. Das Alter spielte dabei 
keine Rolle. Der alte Herr, der 
sich stundenlang mit der „Maus“ 
an einem Grafik-Programm er- 
freute, wurde ebenso gepackt wie 


die > Gruppe Zehnjähriger, die die 
Spielchen mit Donald Duck und 
Goofy nicht mehr los ließ. Für kriti- 
sche Gemüter gab's außerdem 
eine Diskussion, bei der sich der 
in Insider- Kreisen „Software-Schi- 
mansky“ genannte Erste Kriminal- 
haupikommissar des Bayerischen 
L Paul und Rechtsanwalt Dr. 
Schneider aus München den Fra- 
iten. Während Paul vor al- 
u nee Kompetenz 

Erm nittlungsbeamte in 
)V beklagte, die dann 
gkeiten in der Beweissi- 


it sich 


mit sich bringe, waren 
voI allem an der Klä- 
ie alltäglicher Problem- 
ellung in ert: mache ich 
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ıriften abgedruckten 
die zusätzlich als Dis- 
Verlag gekauft werden 
dann uneinge- 
werden, wenn im 


können, 


geben ist, daß 
fentlich" ist, daß 
Zweifelsfall iadoch” sollte immer 
er Verlag oder in der Redak- 
tion nachgefragt werden 
Sammeln von veröffentlichten Pro- 
grammen und das Anbieten 
ser Sammlung als Paket jedoch ist 
grundsätzlich nicht gestattet. Die 
Feststellung Pauls, daß in der 
Fahndungspraxis meist die „Klei- 
nen" erwischt und bestraft wür- 
den, während die großen Fische, 
die mit Raubkopien gewerbsmäßi- 
gen Handel betrieben, oft leer 
ausgingen, sowie die Bemerkung 
wir schießen zwar nicht mit Kano- 
n auf f Spatzen, aber auf der an- 
t auch nicht mit 
spistolen auf Geier", 
tein Freibrief für 
hemmungslos 


Q. 
= 
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Mit den Matrixdruckern MSP-50 und dem MSP-55 rundet Citizen seine MSP-Pro- 


duktpalette ab. Die beiden Drucker mit einer Druckbreite von 80 beziehungs- 
weise 132 Zeichen bieten neben einer qualitativ hochwertigen Schrift, hohe 
Arbeitsgeschwindigkeit und die Möglichkeit des farbigen Druckens. Beide 
Drucker sind voll kompatibel zu den gängigen Mikrocomputersystemen. Die 


Garantie beträgt zwei Jahre. 
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Egal ob Änderung am Betriebs- 
system oder Programme per Modul 
— am Eprom-Brennen kommt kein 
ernsthafter Computerfan vorbeı. 
Hier sind drei bewährte Heizer.... 


Textool-Sockel, Leuchtdioden zur Betriebsanzeige 
und Modulgenerator-Programme gehören inzwi- 
schen zum festen Bestandteil eines Eprommers. 
Trotzdem unterscheiden sich die einzelnen Modelle 
erheblich. Meist sind es nützliche Extras wie zum 
Beispiel durchgeschleifter Port, integrierter Monitor 
oder Floppyspeeder, die ein Gerät attraktiv machen. 
Im folgenden drei Modelle, die sich in der Änwen- 
dung gut bewährt haben: 

Multiprommer 

Zum Lieferumfang des Multiprommers gehören eine 
offene Platine zum Anschluß an den Expansionsport 
und ein Handbuch in Heftform. Das 12seitige Hand- 
buch beschreibt informativ und ausführlich alle 
Funktionen des Programmiergerätes. Der Multi- 
prommer hat ein eigenes Betriebssystem, das sofort 
nach dem Einschalten des Computers mit einge- 
steckter Platine zur Verfügung steht. Dadurch spart 
man sich lästige Ladezeiten. Die Einschaltmeldung 
erscheint und der Benutzer hat die Möglichkeit, sei- 
nen EPROM-Typ, mit Hilfe der Cursor-Tasten, auszu- 
wählen. 

Für den Benutzer ist das Gerät einfach, sicher und 
schnell zu bedienen. Fast alle Funktionen werden 
durch sich selbst erklärende Menüs aufgerufen. So- 
mit kommen auch Anfänger leicht zurecht. Die siche- 
re Anwendung wird durch ständige Hinweise auf 
richtige Positionierung des EPROMs ergänzt. Damit 
werden Schäden, die durch falsches Handhaben 
des Gerätes entstehen können, so gut wie ausge- 
schlossen. Alle Funktionen können jederzeit abge- 
brochen werden. Zwei verschiedene Programmier- 
Algorithmen stehen dem Benutzer zur Verfügung: 
Der erste ist ein veränderter Standardalgorithmus. 
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Multiprommer von Andreas Gerzen: Die Brennsoftware 


steht sofort nach dem Einschalten zur Verfügung. 


Dabei wird mit sehr kurzen Programmierzeiten be- 
gonnen. Das EPROM wird getestet, ob das Geschrie- 
bene auch im Speicher steht. Falls dieser Test nega- 
tiv ausfällt, wird er mit erhöhter Programmierzeit, bis 
zu 50 ms, noch einmal gebrannt. Dadurch ergibt sich 
in der Regel eine Programmierzeit von einer halben 
Minute für ein 8-KByte-EPROM des Typs 2764. Der 
zweite Algorithmus ist extrem schnell. Dadurch wer- 
den auch bei größeren EPROMs Programmierzeiten 
im Sekundenbereich möglich. Der Nachteil dieses 
Algorithmus ist, daß EPROM-Speicher, die nur sehr 
kurz gebrannt werden, schon nach wenigen Mona- 
ten in den gelöschten Zustand zurückgehen können. 
Wer also auf Sicherheit bedacht ist, sollte den 50-ms- 
Algorithmus wählen, damit er keine bösen Überra- 
schungen erlebt. 

Der Multiprommer verfügt über einen großen Be- 
fehlssatz. Neben den Standardbefehlen für Leertest 
des EPROMs, Vergleichen eines EPROM-Inhalts mit 
den im Speicher stehenden Daten, laden und spei- 
chern auf Diskette, ist ein Modulgenerator einge- 
baut. Damit können Autostart-Module hergestellt 
werden. Diese Module stehen sofort nach dem Ein- 
schalten des Computers zur Verfügung. Somit ist es 
möglich, eigene Basic- oder Maschinensprache-Pro- 
gramme selbststartend zu brennen. Bei dem Modul- 
generator sind bis zu fünf Programme in einem 
16-KByte-Modul möglich. Dabei erhält man beim Ein- 
schalten des Moduls ein Auswahlmenü mit den Pro- 
grammen. 

Ein Nachteil des Multiprommers ist das Fehlen eines 
Maschinensprache-Monitors. Eine Funktion zum 
Nachladen eines eigenen Monitors ab $C000 ist vor- 
gesehen. 


selbst gebrannt 


erfreulicherweise durchgeschleift 


Margen, Umsatz und Beratung 
in keinem Verhältnis? 


Nahezu 38 Prozent aller 125 000 Besucher der 

Systems ’85 hatten nach einer Umfrage der 

IDC-Deutschland konkrete Anschaffungsplä- munikation 
ne für Produkte der Informationstechnik. pistribution, K 

Und fast die Hälfte — nämlich 48,8 Prozent u 

— interessierte sich für Mikro- und Personal ter 
Computer. Das Geschäft mit den Workstat- und mikrocomp\ 

ions boomt also nach wie vor und dennoch 

wird es für den Fachhandel immer härter. „für den Hande 


Wo liegen die Gründe dafür, daß Margen, 
Umsatz und Beratungsleistung in keinem Ver- Distribution, Kommunikation 
hältnis stehen? Sind die falschen Kunden mit und Imagebildung auf dem 
falschen Vorstellungen beim falschen Händ- Markt für Personal und 

ler? Oder machen wechselnde Hersteller-Stra- Mikrocomputer 

tegien, sei es bei den Produkten oder in der Eine Untersuchung beim Handel 
Werbung, Probleme! Und wie erreicht der für den Handel 

Händler selbst seine Kunden am wirtschaft- 126 Seiten, München 1985 
lichsten? Best.Nr.: CW 54-0 DM 176,— 


CW-Publikationen, aus der weltgrößten Fach- 
verlagsgruppe für professionelle EDV-Infor- 
mationen, hat über einen unabhängigen > EDITION 
Marktforscher eine aktuelle Untersuchung 

beim Handel und für den Handel finanziert. Fachbücher für die Computerwelt 


Ich/Wir bestelle(n): 
R . Name Vorname 
4 > 

0% a ERS NS er Expl.Best.Nr.: 

Ba SI NN tra 
NS RS Ss x i RS Sg Straße 

N 2 RCHNIIENIENS 7 Er 
SE EIESZEESAON > — Ge Dr ee rg Unterschrift 

go 


ES [_] Bitte senden Sie mir Ihr 


EI SER TEET HT TET ERE T EE Tg F ER . Pi 
Postleitzahl /Ort Bücherverzeichnis 
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Quickbyte 2 


Mit dem Quickbyte 2 von Jann Datentechnik steht 
dem Benutzer ein professionelles Gerät zur Verfü- 
gung. Zum Lieferumfang gehören neben der Platine 
ein 28seitiges, sehr ausführliches Handbuch und 
eine Diskette. Auf der Platine befindet sich neben 
dem EPROMer ein 16-KByte-EPROM mit Software 
und Monitor. Der EPROMer wird in den Expansions- 
port eingesteckt. Er benötigt kein externes Netzteil, 
da er die Programmierspannung mit aufwendiger 
Elektronik selbst aus der Betriebsspannung erzeugt. 
Nach dem Einschalten des Computers meldet er 
sich mit dem Hauptmenü. Kaum hat man einige der 
Punkte gelesen, schaltet er auch schon auf ein weite- 
res Menü zur Auswahl des EPROM-Typs um. Mit Hil- 
fe der Cursortasten kann man zwischen den Typen 
auswählen. Dabei kann man auch die Commodore- 
ROMs anwählen, um deren Inhalt zu lesen. Der Ex- 
pansionsport ist durchgeschleift, so daß auch Modu- 
le ausgelesen werden können. Zur Programmierung 


stehen drei verschiedene Algorithmen zur Verfü- 
gung: Der erste ist der Standardalgorithmus, bei 
dem jedes Byte mit 50 ms Programmierzeit gebrannt 
wird. Die beiden anderen sind jeweils intelligente 
Ai Der eı in genäherter Intel-Algo- 
rithmus. D über: ach dem Schreiben 
sofort das Geschriebe ene und brennt noch einmal mit 


- 


der bisher benötigten Zei nach Dadurch wird das 
EPROM geschont und die Daten sind auch über lan- 
ge Zeit sicher. In dem eingebauten EPROM st en 
Monitor integriert. Dieser überzeugt durch umfang- 
reichen Befehlssatz. So können unter anderen auch 
Sprites definiert und auf dem Bildschirm dargestellt 
werden. Zusätzlich enthält der Quickbyte 2 noch eı- 
nen Floppyspeeder, der das Warten bei Disketten- 
zugriffen verkürzt. Um mit dem Quickbyte Module 
erstellen zu können, ist ein Modulgenerator einge- 
baut. Mit diesem Generator können Module mit bis 
zu 8 KByte Länge erzeugt werden. Mit einer Zusatz- 
platine, die nicht im Lieferumfang enthalten ist, kön- 
nen sogar Module mit bis zu 128 KByte angefertigt 
werden. Zu bemängeln ist beim Quickbyte 2 ledig- 
lich die dicke Platine — die Federn im Expansions- 
port werden leicht überansprucht bei längerer Be- 
nutzung verbogen und bieten für normale Module 
keine Kontaktsicherheit mehr. 


PP-64 


Mit PP-64 von Merlin ersteht der Computerbesitzer 
ein professionelles Gerät zum Programmieren aller 
im Handel befindlichen EPROMs. Zum Lieferumfang 
gehören der Prommer, die Steuersoftware und ein 
ausführliches 24seitiges Handbuch. Der EPROMer 
wird am User-Port betrieben. Die Platine mit der 
Steuersoftware wird in den Expansionsport gesteckt. 
Nach dem Einschalten kann der Benutzer mit Hilfe 
eines kleinen Menüs zwischen drei Betriebsarten 
wählen: dem EPROM-Programmiersystem, einem 
EPROM-Basic und dem original C64-Betriebssystem. 
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= = ee: über a Gerät eingebaute 
ee Zum Programmiere 
ben dem 50.ms-Standardale ri 


Bnmer zum besseren Diskett andling Flopp: 
hilfen eingebaut. Als optische Anzeigen für eBe- 
triebsspannung und des Brennvorgangs dienen 
zwei Leuchtdioden. Besonderheiten sind die mögli- 
che Einzelbyteprogrammierung und a a 
installierbarer Monitor. 


Bei der Wahl des EPROM-Programmiersystems ge- 
i man in ein Auswahlmenü für die EPROM-Ty- 
ee Mit den Cursor-Tasten wählt man den benötig- 
ten EPROM-Typ aus. Das Programm zeigt die nötige 
Programmierspannung an und macht einen Vor- 
schlag für den Programmier-Älgorithmus. Es stehen 
vier verschiedene Algorithmen zur Verfügung. Das 
erste Verfahren brennt den EPROM mit einem 
Stromimpuls von 48 ms Dauer. Die anderen dfrei in- 
telligenten Programmierverishren stellen sich auf 
den Typ besser ein. Sie schreiben und testen das 
Geschriebene so, daß man einen optimalen Kompro- 
miß zwischen Programmierdauer und Datensicher- 
heit erhält. Der dritte Algorithmus ist speziell für die 
Programmierung des 27512-EPROMs. Da dieser Typ 
64 KByte an Daten aufnehmen kann, der Datenspei- 
cher des PP-64 aber nur 32 KByte umfaßt, muß er in 
zwei Durchgängen gebrannt werden. Zu bemängeln 
ist dabei, daß die Daten von Diskette nur sehr lang- 
sam gelesen werden. 


Der Modulgenerator des PP-64 erlaubt es aus Basic- 
und Maschinensprache-Programmen brennfähige 
Files zu erzeugen. Mit dem EPROM Basic können 
solche Files auch direkt auf einen EPROM geschrie- 
ben (mit SAVE) und gelesen (mit LOAD) werden. Die 
dabei verwendete Gerätenummer ist 16. Das Laden 
eines sieben KByte langen Programmes dauert zirka 
2 Sekunden. Nachteilig ist beim PP-64 die Verwen- 
dung von zwei Platinen. Dadurch wird sowohl der 
User- als auch der Expansionsport belegt. 


_ 


 Quickbyte 2 


Der von Jann Datentechnik entwickelte EPROM- 
_ Brenner Quickbyte 2 (Bild 2) ist ein EPROMer, der 
am Expansionsport angeschlossen wird. Damit 
‚weitere Erweiterungen oder das Auslesen von Mo- 
dulplatinen möglich sind, wurde der Expansion- 
port durchgeschleift. Neben den Standardtypen 
können auch die folgenden EPROMs program- 
 miert werden: 2508, 2758, 27916 27513: CMOS-Ty- 
pen 27CXX; EPROMs2816A, 2864A, 28256A Die 
. Typen-Auswahl erfolgt durch ein eingebautes 
Steuerprogramm. Zum Programmieren stehen drei 
verschiedene Algorithmen zur Verfügung 50-:ms- 
Standard und zwei intelligente. Im Gerät sind Flop- 
- pyhilfen und ein Maschinensprache-Montor enge- 
baut. Es steht auch ein Modulgenerator zum Erzeu- 
gen von Modulen bis 8 KByte Länge zur Verü- 
.. gung. Drei LEDs zeigen den momentanen Status 
des Prommers an: Betriebsspannung, Zugr =u# 
.. den EPROM und anliegende Programmierspen- 
nung. Das wahlweise mit oder ohne Gehäuse De 

 ferbare Gerät kostet zirka 198 Mark. 


PP-64 

Der PP-64 (Bild 3) wird von Merlin hergestellt. Es 
handelt sich dabei um ein an den User-Port an- 
schließbares Gerät. Auf einem Expansionsport- 
Modul sind die Steuersoftware und ein Maschinen- 
sprache-Monitor untergebracht. Neben den Stan- 
dardtypen sind folgende EPROMs programmier- 
bar: 2758, 51483, 5133, 48016, 68766, 68764; alle 
CMOS-EPROMs und alle EPROMs. Zum Program- 
mieren stehen neben dem 50-ms-Algorithmus drei 
intelligente zur Verfügung. Ein Modulgenerator ist 
ebenfalls in der Steuersoftware integriert. Die An- 
zeige von Betriebsspannung, EPROM-Zugriff und 
Programmierspannung ist durch drei LEDs gelöst. 
Der Preis des Geräts beläuft sich auf 298 Mark. 


Nicht mehr am Kiosk erhältliche Ausgaben der 
RUN können per Nachnahme von CW-Publikatio- 
nen, Abteilung Vertrieb, Postfach 400 429, 8000 
Meänchen #0), bezogen werden. Der Preis pro Heft 
beträgt mikiusiwe Ausgabe 2/87 5,50 Mark und ab 
Ausgabe 3/87 650 Mark zuzüglich Nachnahme- 
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Andreas König electronic, Stresemannstraße 11, 5800 Hagen 1, Telefon 0 23 31/1 69 79 


DAS SPITZENZUBEHÖR C 64/123/16 


EPROM-BRENNER DOS-KABEL 
32 K fertig im Gehäuse, mit Soft-Disk 
32 K dito, jedoch als Bausatz 
64 K fertig Im Gehäuse, mit Soft-Disk 
64 K.dito, jedoch als Bausatz 


EPROM-KARTEN 
16 K (2x 8K) 2716-64 Duo-Modulkarte 
32K 11 16 K und BSU) Variokarte 
256 K (8x 2716-32) mit Soft-Eprom 
256 K, dito, jedoch als Bausatz 
1MB(16x 2764/256/512) mit Soft-Eprom 


BETRIEBSSYSTEM-UMSCH.-PLATINEN 
1x alt/1x neu mit Umschalter 

1x alt/1x neu dito, absturzfrei 

1x alt/6x neu dito (auf 4 gen 

1x alt/2x neufürC 128/Dm. Schalt 

4x BSund4x 8K Modul, Kombikarte 

dito, jedoch direkt für Expansionsport 


ADAPTER-SOCKEL 

Für ROMs 24/28polg 1x Boder 16K anı 
Für ROMs 24/28poligfür4x8K + Schalt. Nr.9594 DM 27,80 LIGH 
dito, jedoch fürC 128/D 3fach Nr. 9595 DM 27,80 
Die Artikel 9594 + 95 sind besonders klein (ca. 22x40 mm). 


Nr. 9555 DM 149,00 
Nr. 95256 DM 89,95 
Nr. 9655 DM 198,00 
Nr. 9656 DM 139,00 


Nr. 9502 DM 17,90 
Nr. 9509 DM 29,95 
Nr. 9513 DM 99,95 
Nr. 9574 DM 85,00 
Nr. 9600 DM 169,50 


Eproms sowie Kabel 
MODULE der Superlative! 


1 Jahr Garantie! 


Nr. 9517 DM 25,95 
Nr. 9525 DM 29,95 
Nr. 9527 DM 39,95 
Nr. 9524 DM 29,95 
Nr. 9528 DM 45,00 
Nr. 9509 DM 29,95 


Nr.9598 DM 9,95 


Für parallele DOS-Übertragung + Reset 
dito, jedoch durchgeführter Userport 
dito, jedoch für Floppy 1570/71 

REX DOS (FLOPPY SPEEDER) 

Das schnelle Übertragungssystem, ca. 10x schneller Laden, Ver- 
ity, Saven. F-Tasten-Funktionen. Komplett mit allen Platinen und 


Alle Module im Gehäuse, mit Resettaster, guter Beschreibung und 


HYPRA-DISK-MODUL 7 x schneller laden/ver. 
HARDCOPY-TURBO-MODUL 7x Tempo,Copy uva. 
EPROM-MODUL-GENERATOR für Autostartprg. 
FORMAT-HARDCOPY-TURBO-M. mit Formatierung Nr. 9507 49,95 
HYPRA-TAPE-MODUL 10x Tempo/lad/save/ver. 
MONITOR-MODUL, mit Turbomod/ID-Changer 
128er MODUL für 64er Mod. 6x Tempo 1570/71 
SUPER-UNIVERSAL-MODUL, erfülk alle hier 
jebenen Funktionen, außer 9541/45/9604 

N-MODUL, malen und beiehlen via 
PICTURES-PRINTER-MODUL, druckt alle Bilder 
auf fast allen Druckern, Okimate 20 in color 


Nr. 9597 DM 22,95 
Nr. 9535 DM 25,00 
Nr. 9536 DM 25,00 


ACHTUNG 


Bitte fordern Sie unseren großen vierfarbi- 
gen KATALOG an. Dort finden Sie viele wei- 
tere Computerzubehörs. Hier ist nur eine 
kurze Programmnübersicht möglich. 

Sie können auf dem Versandweg direkt bei 
uns bestellen: REX DATENTECHNIK, Strese- 
mannstr. 11, 5800 HAGEN 1, Tel. 023 31/ 
16979 und 3 27 34, Telex 823 401 ekha .d. 
Ab 200,— Versand frei, darunter bei NN 
6,—/VK 4,—, Ausland nur Vorkasse, Ver- 
sandkosten 15,—, ab 400,— % MwSt. 


Wenn Sie im Fachhandel kaufen wollen und 
die Ware vorher sehen möchten, so schauen 
Sie hier unten im Stützpunkthändlerver- 
zeichnis nach, ob einer in Ihrer Nähe ist. 


Nr. 9617 DM 99,50 


Nr. 9503 29,95 
Nr. 9505 35,90 
Nr. 9506 29,95 


Nr. 9510 29,95 
Nr. 9516 55,00 
Nr. 9521 55,00 


Nr. 9522 69,50 
Nr. 9541 39,00 


Nr. 9545 99,00 


Stütz zpunkthändler: 1000 Bari 61. AZ Electronic, Stressmannstraäe 95 @ 1000 Berlin 30, CONRAD electronic. Kurfürstenser. 145 @ 1000 Berlin &2, Müxra Dstertechnik, Schönzbergersiraße 5 @ 1000 Berlin 42, Jann-Datentschnik. Kaiserin-Augusta-Strade 13 @ 2000 Hamburg, CONRAD 
ia 12 © 2009 Norderzieft, . 


ectronic, Hamburger Str. 127 @ 2000 Hamburg 1. 

ke, eg 5 © 3000 Kannever 1, NADLER Eochenl 
‚kt Gregarius, Losstraße 78 © A150 Kr, v Wetzeis- 7, nk Stetansrase 

Veremärake a © 4206 Essen 1, CONRAD eiscironic, Visholerstr. 3352 @ 4407 Emssetien, Dacır.-Shop-Emscztızn, 


Bar! 
@ 4970 Bad Ooynhausan, HiFi Sucio Unger, Schwarzer Way 2 @ 5000 in. Kam + Homberg, #ichenstauftznring 43—t5 @ 5006 Kiie, Lima-Eisctramik, Oipanz: 
kusen, Racio-City-Elekirorix, Nobeistrabe 11 @ 5120 Herzegenrath, Ziektronik Gr2ä KE Ratnzusplatz & @ 5160 Düren, Szlmanns Eiectr_, Wahersirate 22 © 52 Sngbery. 
‚Speicher, Radio Conrad, Brnnhalsırase 24 @ 5400 Koblenz, Hobby-Elscironik 3000, Viktpriastraße 8—12 © 5500 Wuppertal 2, Schaser Lomputariadsn, Kingernall 111 @ 5530 Remscheid, Aützei Blectroric. Bismarckstraße 1 @ 5650 
Bahrnofstraße 10 @ 5780 Menden 1, Brdnies, Hauptstraße 21 ung 32 @ 5819 Willen, Keim + Homberg, Stainsiraäe 17 @ 5B30 Schweim, Elsiuo Schmitz + Do 
I 6000 Frankfurt 80, Nietsche Cempsterschnik, Spichmannsır. 33 @ 6000 Frankturt 50, ABACOMP, Kranzbergerwsg 24 @ sn Piungstzdt, Link-; rn Bomgase 15 © 32 Er, HF-Electisic, 
Kankol, Ze “rom 
Straße ı @ 8452 Hirschae, 


ie. Bibelstraße 16 @ 6538 Dillingen, Ludwin Bosch Electronic, Weinlichstraße 35 @ 6909 


Wühlhausse-Astpnein. Wi 
Hekrosik, Gertersräße 2) ® 8000 München 2. CONRAD etrönit. Schllersraße 25a ® 009 München, HDS Frehechni. Mara bi» $ 


Be 21 @ 8960 Kemplen/Algiu, Radio Hartmann, Helgkreuzsirase 15/17 © 8998 Lindenderg/ Allgäu, Comnuter + Zubehör Kageroauer, #. her-Straße 47 
, Targei-Eleetsoric. Aechasızse ! 23 © 8:3000 Lemea, LSW. Trensastrast 209 © CH-3185 Schmitten. MFS Harc- und Software. Tel 0 37/36 20 60 @ DK-2880 


Ausland: ® A-1060 Wien, ASM Engineering + Con . Walgasst 29/3 @ A-6800 Feldkirch, 


ar Eipctronic, Rosenzagen 30 @ 3180 Weltsberg 1. SÄW-Camoier, Schachweg 5a © 3501 Anatl, Ahnat -Dempuzert 


ie 3 © 2200 Ekmsbern. Backast-Computervertrieb, Norderstraöe 3 @ 3000 Hannover, Eisktronik-Zenter Peter Bar- 
ion. Ball, Wilheimstnaier-Straße 20 @ 4000 Düsseldart 1, AM giecironic, Kölner Strabe 20 @ 4100 
Emmerichersir. 127 @ uns Dterhausen 1a Computertechnik Karsken. — © 4300 Essen, Keim = Homberg, 
Dertmund, «ı ‚eutkardstraße 13 @ 4670 Lünen, Keim + Homberg, Kurt-Schumscher- Straße ii) 
Ibach, Computercanter, Buchholzstr. 1 @ 
Cemputertamter, Lusenstrade 25 @ 5300 Bann 1, Neumerkel KG, Stihspiztz 10 © 5300 Bann, P+M Eisctronic, Sternstraße 102 @ 5522 
, Radio-City-Elsctronic, Utergarten 19 @ 5657 Haan 1, Klahsen Elektronic, 
Bahnhotstraße 32 @ 5889 Läsenscheid, Comp- Carzer-Sieling, Werconiestraße 32 @ 8000 Frankturt 60, Computartschnix Kraft, Köhrborngasse 61 . 
— 42 © 8300 Gießen, Tiectronik-Saop. Grünl ie 12 @ 6630 Saarlouis, Minninger Eles- 
Sertronic ing. Worch. Neckarsıraße &6 © 7060 Schernderf, Foto-Computer-Elektrzeic R. Trinkaus, J.-P.-Palmsir. 53 @ 7100 Heilbronn, HK- 
Hürschau, CONRAD eiectunic, Kiaus-Oserad-Sr. I @ 8500 Nürnberg, CONRAD eiectranie, Leomarasir. 3 @ 8520 Erlangen, Feller-Eloctronic, Marquardenstra- 


Somzuter 
ar Inisrmauer 15 © 4600 
©5038 Klammer + Schulte. Beate 436 © 5060 


Absalon Data, Vangeosve] 2162 @ DK-9240 Nibe, D/C 


Soberg, 
24 @E- 50001 Zaragassa, Hispascft, SA, Coso 87 @ 00162 Rama, Fema Merhäler, Wis Lorenze i. Magnilicn 128 @ 419033 Casisinsens, Nzw Sons Via Carbons 3 @ HL-3083 AL Aufterdam, D.L.L_ Elecır. J. Ligtharistraße 59-61 @ ML-3024 SE Ratterdam, Ca + Korsh, Havenstraße 70 @ SF- 
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Basteln 


rr% tantshow 


Bei der nächsten Party muß nicht 
mehr auf professionelle Beleuchtung 
verzichtet werden. Die 8-Kanal-Licht- 
orgel im Selbstbau sorgt für irre Licht- 
effekte mit einer Lampen-Gesamllei- 
stung von bis zu 2400 Watt. 


Zum Verständnis von Programm und Hardware sind 
Kenntnisse über die Programmierung des User- 
Ports erforderlich: Alle Pins, die in der Schaltung 
verwendet werden, sind mit dem Complex Inter- 
face-Adapter 2 (CIA 2) verbunden. Das Register 3 
Deanınl, ob der Datenbus des User-Ports (Pins C-L) 

als Ein- oder Ausgang arbeitet. Jedes Bit ist hierbei 


folglich gemischt programmieren. Der eigentliche 
ird durch das Register 1 be- 
bei Eingabe dargestellt. 

rt hinein, so sind > Aus 


ı(D 


Poket man hier einen 
Pins entsprechend der 
oder low. Die Bitfolge 
ster ergibt, herzustellen, bleibt dem Pro 
überlassen. Diese Muster können komf bel mit 
dem Folgeneditor (Z. 2500—7150) eingegeben weı 
den. Eine Folge umfaßt 100 Leuchtmuster und ein 
Byte, das angibt, wie lang die entsprechende F 

ist. 


PT: 


wi i 


® 


Se Ibstbau schn ell und preiswert 


Die Folgen sind im 4K-RAM abgelegt, es haben also 
40 Folgen Platz. Eine Interruptroutine ($4050) liest die 
Folgen aus und gibt das Muster an den User-Port 
weiter. Eine Geschwindigkeit, mit der dies ge- 
schieht, wird entweder vom Multivibrator der Hard- 
ware-Erweiterung (externer Takt) oder von einem in 
der Interruptroutine implementierten Zähler (inter- 
ner Takt) geregelt. Welche von beiden Optionen 
ausschlaggebend ist, bestimmt Bit 1 des Zeropage- 
Registers 02. Außerdem können die Folgen wahlwei- 
se einzeln oder nacheinander durchlaufen werden. 
Hierfür ist Bit 0 des Registers 02 zuständig. 

Während der Ausgabe der Folgen durch die Inter- 
ruptroutine können natürlich alle Parameter geän- 
dert werden. Dies besorgt ein gleichzeitig ablaufen- 
des Basic-Programm (Z. 1000-1070), das folgende 
Funktionen abfragt: 
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= Nächste Folge 
® = Letzte Folge 
F7T = Hauptmenü 
+/— = interner Takt schneller/langsamer 


Umschaltung der weiter oben beschriebenen Optio- 
nen erfolgt mittels der Zahlentasten 1 bis 4. 

Zum SAVEn der Folgen wird zuerst der Basicanfang- 
Zeiger (43/44) und der Basicende-Zeiger (45/46) auf 
den zu speichernden Bereich eingestellt. Nach er- 
folgtem SAVEn müssen diese Zeiger wieder auf den 
ursprünglichen Wert (das Basicprogramm) zurück- 
gestellt werden, damit das Programm korrekt wei- 
terläuft. Die Geräteadresse wird deshalb nicht in ei- 
ner Variablen übergeben, da diese beim SAVEn 
durch das Verstellen des Basicendes= Variablenan- 
fang nicht mehr ansprechbar wäre. 


Schaltung auf Lochrasterplatine 


Der Folgenablauf wird von einer Assemblerroutine 
($40A8) gesteuert. Die einzelnen Muster können je- 
derzeit mit dem Cursor verändert werden. Im Pro- 
gramm geschieht dies durch logische Verknüpfun- 
gen in Z. 6000-6060. Wurde das letzte Muster der 
gerade bearbeiteten Folge eingegeben, drückt man 
E für Ende, um dem Programm mitzuteilen, daß die 
Folge abgeschlossen ist. 

Das kleine Programm '4K-RAM Initialisierung’ dient 
dazu, den Folgenspeicher, also das 4K-RAM (genau- 
er: 49152—53194), zu löschen, einige Beispielfolgen 
hineinzuschreiben und das ganze auf Disk abzuspei- 
chern (Datasetten-Anwender ändern die Geräte- 
adresse in Zeile 70 auf | um). 

Wichtig: Programm einmal laufen lassen, bevor das 
eigentliche LIGHTSHOW-Programm benutzt wird. 


__ 


mie CO WII N 


leuchtet die LED im Optokoppler auf, wodurch auch 


VARIABLENLISTE: der inteari Ä a 
e grierte Fototransistor schaltet und die Trisc- 
ve = ee Ein-und Ausgabe 7ündspannung Uz an den Gate-Anschluß des Triacs 
= Anzahl der vorhandenen Folgen gelangt. Dieser zündet nun den 220-V-Kreis, welcher 
2 = Leuchtmusternummer bei Eingabe natürlich entstört werden muß, da beim Zünden der 
Sr = ne Zeile Triacs hochfrequentierte Störimpulse auftreten kön- 
HE 2 . Die Entstörei j : ürli ur ein- 

He hir Sen Tadevordgang nen. Die Entstöreinheit Ll, C2 muß natürlich nur ein 


mal für alle acht Kanäle aufgebaut werden. Die Lam- 


REGISTERLISTE der Assemblerroutinen: penleistung sollte 600 W pro Kanal nicht allzusehr 


02 = Flag für Durchlauf/folgenweise und jiperschreiten. 

interner/externer Takt Op 1 stellt einen Multivibrator dar, dessen Frequenz 
FB = Länge der aktuellen Folge mit Poti 1 einstellbar ist oder vom Übertrager Ül mu- 
FC = Startmuster bei der Folgendarstellung sikabhängig geregelt werden kann, wenn Sl offen 
FD = Zwischenspeicher für Y-Register ist. Das RC-Glied C3, R7 (gestrichelt) kann man nach 
FE/FF = Zähler für internen Takt : Wunsch variieren, um den Takt nur für bestimmte 
0340— = verschiedene Zwischenspeicher 


Frequenzen empfindlich zu machen (hier nur Bässe). 
0343 Der Takt wird über T9 an das User Port Pin FLAG (B) 
0342 aktuelle Folge gelegt. Aus dem Register 13 des CIA 2 kann nun an- 
0343 nächste Folge - hand von Bit 4 abgelesen werden, ob an FLAG eine 
STARTADRESSEN der Assemblerroutinen: negative Flanke aufgetreten ist. In diesem Fall gibt 


Interrupt an : 40CC = 16588 das Programm das nächste Leuchtmuster aus, indem 


li 


Interrupt aus : 4067 = 16615 es den entsprechenden Wert in das Register | 
Darstellung im Editor : 40A8 = 16552 schreibt. Wer weiß, auf welcher Seite der Lötkolben 
Setzen der Zeiger : 4028 = 16424 heiß wird, dem dürfte der Aufbau der Schaltung kei- 
Darstellung eines Musters : 4000 = 16384 ne Schwierigkeiten bereiten. Prüfen Sie Ihre Arbeit 
Interruptroutine : 4050 = 16464 vor dem Ausprobieren aber bitte besonders gewis- 
Weitere verwendete Adressen: senhaft, da das Wohl Ihres User-Ports von Ihrer 
19 = ?bei 'INPUT' aus (0) oder an (64) Sorgfalt abhängen kann! 
56576 = CIA 2 Grundadresse ($DD00) Die Zündspannung Uz muß separat von einer Strom- 


Register | = Port B (User-Port Pins PB quelle mit zirka 5—7 V geliefert werden und muß mit 
/ 3 : - zirka 200 mA belastbar sein. Am günstigsten sind ein 
Register 3 = Data-Direction PB (Ein- pilliger Kleintrafo und Gleichrichter, die auf der Pla- 


oder Ausgabe) tine montiert werden. Eine Siebung von Uz ist nicht 
nötig. 
(Christoph Ramm) 
Zur Schaltung: 


Der Port B des CIA 2 ist am User-Port an den Än- 
schlüssen C-L mit den Bezeichnungen PB 0—7 voll- 


ständig herausgeführt. Programmiert man diesen mit Stückliste: 

Hilfe des Datenrichtungsregisters des CIA 2 als Aus- — Optokoppler :2 x ILQ74 

gang (Zeile 2), so kann man Transistoren (T1—-T8) an- OP; 3130 

steuern. Die Pins sind entsprechend der Bit-Bele- — Triacs 1-8 :TIC206D 

gung des Register 2 (Port B) des CIA 2 hich (+5 V) — Transistoren :Tıs = BC237/238 B 
oder low (ground). Für die benötigten 5 V Betriebs- Tg, ı0 = BC338 
spannung sorgen Pin 1 und 2. Hier dürfen nicht mehr — Ce RA 

als 100 mA entnommen werden. Bei größeren Strö- C, _: Entstörkondensator ca. 0,02 uF 
men muß eine zusätzliche Stromversorgung ange- — L; _: Entstördrossel ca. 300 „H 
bracht werden. Durch die Optokoppler 1—8 (2x ILQ — Ü) : Übertrager NF, 1:10 

74) ist der C64 von sämtlichen netzspannungführen- —Sı .: Schalter 1 x ein, Ipol. 

den Teilen der Schaltung getrennt. Schaltet nun zum — User-Port Stecker 

Beispiel Tl, angesteuert durch den Pin ©, durch, so >» 


Juni/87 Qu 21 
WWW .HOMEEOMPUTERWORLD. COM 
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O—L 


A; G 
Ar 


Pinbelegung des Triacs 206 D 


Aufbau der LED LDRO3 
Optokoppler: 


lichtdichtes_y 


Gehäuse lichtempfindliche 


Seite des LDR 


Aufbau der Optokoppler 


Widerstände: 

— PotiPı :500 KQ/lin 
—R; :L2K 

--. R,, Ra, Rs, Re :100K 

Er R4 :4,1K 


_ Rs — Rıs :470Q 
— Rıs— Ra 2200 
— Ra —Rzı :1008 
RC-Glied 
(wahlweises): 

R:47K /C3 :22nF 


Werte der Widerstände 
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rem En 
rem % % 
rem %--lightshow ii--% 
rem % 1985 by: % 
rem % % 
rem “-christoph ramm-% 
rem % % 
rem % hubertusstr.20 % 
rem %“ 8 muenchen 19 % 
rem 3 t81:77r7-74:07% 


rem ERRRHTTRNTTTEN, 


on a goto 7149,19,70 
gosub 25 

a=-2:goto 7058 
a=3:goto 7110 


poke 56576+3, 255:rem 
cia-port.b auf ausgabe 


1212 

453 
1171 
1e3% 


1966 


38 


35 
40 
45 


ei) 
55 
68 
65 


print ”£Leir,cyn)”:poke S3288,6:poke 
53281 ,6: poke 658,128:x-2 

print chr$ (14)J:print tab(7)”Luht, 
cbm t,obm y,elcbm u,cbm y,chbm t3” 
print tab(8)"Cchm J,rvs,2ispaces, 
off,cbm 1]” 

print tab(8)”[chbm g,rvs,2ZspacesIL 
[shift-spacelllshift-space]G 
Cshift-spacelHLshift-space]T 
Cshift-spaceJS[shift-space]H 
Eshift-spacelü[lshift-space)W 
[shift-space] [off,cbm m)” 

print tab(8)"[chbm j,rvs,Zispaces, 
off,cbm 1)” 

print tab(7)"Cchm @,cbm p,2ichm 0, 
cbm p,cbm @3” 

print :print :print tab(8)"[cynJa 
THINKING-DATA Product[3dowun]” 
return 


BB : 
Ba 


78 
75 


89 


81 
99 


gı 
32 
35 


38 


IB + 


33 


100 


..119 


128 


938 


gosub 285 

print " Dieses exzellente Programm 
bietet” 

print ” Ihnen Folgende 
Moeglichkeiten :”:print 


print tab(12)"1. Alte Folgen 
laufenlassen” 

print tab{12)”2. Neues 
erstellen/laden” 

print tab(12)”3. Ende”:print 

poke 138,8:poke 19,64:input ” Bitte 
"waehlen![2spacss,wht]”;x$:pake 19,2 

on val (x$) goto 10900,2599, 108 


print 
;XS 
IE 502 23% then 78 

print ”[clr,yel,1ßdoun]” tabt 
14)"Tschaul2spaces}!!”:poke E45, peek 
(53281): end 

ee ee 


:input ”Lup) Sind Sie sicher ” 


233: 


1922 


1218 
1815 
1020 


1021 
1022 


1023 
1024 


1025 
1026 
1027 


1028 
1038 


1831 


19832 
1035 


1036 
1037 
1038 
19040 
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print "Luht,cir,rvs,11spacesiFolgen 
ausgeben[14spaces]” 

poke 2,3:t=l11:poke 254,t:poke 835,0: 
sys 16588 

print "L2down,whtlJilchm 7,3spaces] 
Fortlaufend” 

print "2[3spaces]Folgenweise” 

print ”Lwhtl]3Cchm 7,3spaces}Interner 
Takt” 

print "4[L3spacss]Externer Takt” 
print "C2downJFil2spaces]Naechste 
Folge” 

print "F3C2spaces)Letzte Folge” 

print ”"F7C2spacesJHauptmenue” 

print "Cdown]+/- Geschwindigkeit 
intern[L3down)” 

print "Aktuelle Folge: 1” 

get x$:if xS-chr$ (136) then sys 
16615:goto 78 

if x$=chr$ (133) then fo-fo+tl:poke 
835, fo 

if x$"-chr$ (134) and fo>® then fo= 
Fo-1:poke 835,Fo 

Fo=-peek (835): print "Cup, 1Sright]” 
Fo+1”[Lleft ,2spaces]” 

if x$="+" and t?1 then t=t-1 

if x$5=-"-”" and t<£38 then t=t+1 

poke 254,t 

x=val (x$):if x<i or x>4 then 1232 


4715 
5157 
2011 
3484 


2B6B 
33937 
1828 


1798 
1864 


1587 
2151 


1819 
1647 
3346 


2159 
3024 


3197 
4048 
3915 
1972 
24290 


956 
2972 


1941 
1242 
1043 
1944 


1260 


if x/B=int (x/2) then poke 55376+40# 


x,14:goto 19843 

poke 55456+49*x, 14 

poke 55416+49*x,1 

y-int C(x+1)/2):pcoke 2,psek (23 and 
3-y or (x and 1)*%y 


1865 : 
1070 : 


2508 


2510 


2520 
e522 
es24 


e526 
2528 
2538 


2531 
2532 
2558 
2551 
2552 


2553 
0555 
2568 
B565 


goto 1838 
ee Ertgsnsedltor 
print "C[celr,wht,rvs, 11spaces]E 


Cshift-spacelDfLshift-spacell 
£shift-space)T[shift-space)- 
[shift-spacelNlshift-space)0 
£shift-spacelD[shift-space)E 
[shift-space, 11spaces, 2down, cyn)” 
print ” Es sind maximal 108 Leucht-". 
print ” muster pro Folge moeglich.” 
print "Cdown) Geben Sie eine 1 fuer 
eine” 

print ” brennende und eine B fuer” 
print ” eine erloschene Lampe ein |!” 
print "Cdown] Mit den Cursortasten 
koen-” 

print ” nen Sie die Darstellung der” 
print ” Folgen auf & ab scrollen.” 

ve=ß 

for i=-® to 39 

if peek (49152+1901*i)<>B then vervfr 
ı : 

next 

iF x<>8 then 3888 

print tabt18)"LSdounl<space>" 

wait 293,568 


2998 : 


2999 
39090 
3212 
3815 
3815 
3817 


3218 


u Vestunienrai enter erizmgaechemmalenn 
print ”"[Cclr,wuht,rvs,312spacssJ]E DIT 
- M DD E[1l3spaces, 3downr]”:poke 
198,8 

print ”£2spacesJEs sind”vf” Folgen 
vorhanden£[down]” 

print ”"[2spacesJWelche Folgs 
[?spaces}( 1-48 )” 

print ”[2spaces,down,cbm @,doun, 
left,rvsJStofflJave” 

print "[2spaces,cbm @,down, left,rvs] 
L[offJoad” 

print "E2spaces,cbm E,down,left,rvs] 


- MEofflenuldown]” 


30208 
3025 
3026 
3027 
3038 


3040 


3041 
30508 
3051 
3053 


3054 
3955 
3120 


31398 
3140 
3141 
3ı4e 
3145 
3147 
3158 
3155 


input ”[2spaces,down]”;x$ 

if x$5="m” then 78 

if x$="s”" then 70088 

if x$="1” then a=1:goto 7188 

Eo=val (x$):if fo<1 or fo?4® then 
print ”L3up]”:goto 39028 

print ”Celr,wht]” tabl21)”C2down] 
EDIT - MODE” 

print tab(20)”L13cbm t, 2doaun]” 

print tab(22)”Folge. ı»Eo: :fo-fo-1 
print tab(22)”CdownJMuster: 1 - e3N 
print tab(l22)”Ccbm @,doun,left, rvs]L 
Coffloeschen” 

print tab(22)”C[cbm @,doun, left,rvs]E 
CoffInde” 

print tabl22)”Ccbm @,down, left, rvsJM 


CoffJenul7up)” 

poke 63,195:poke 64,7:poke B34,Fo: 
sys 16424 

z=-&:5=3:q=25:poke 252,q:sys 165582 
get x8 


if x5=-"]” then 498008 

iF x$5="m" then x=1:goto 2558 

if x$="[Chome]” then s=3:z=® 

if x$5="[right]” and s<18 then s=s+l 
if x$="[left]” and s>3 then s=s-1 

if x5=-"[down!” and z=Ö24 or x$=-"[Lup]” 
and z=8 then gssub 5908 


2812 


2844 
3302 
3213 


2273 
2839 
2BSB 


3338 
3081 
557 
862 
3258 


138 
1281 
1944 
eklo 


3673 ° 


3835 
2635 
1463 
1218 
1202 


701 
1303 
1567 
2227 
3866 


e452 


EBES 
3037 
22693 
eye 


1786 
2527 
3265 


3349 

4B1 
1595 
2253 
1947 
2504 
Eee 
3074 
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3158 iF x$5=-"[Lup]” and 2>8 then z=2-1 2148 7283 2 
3 ; gosub 7588 535 
3165 if x$="[down]” and z<24 then z=z+i1 2263 ; » ing: 7 
ee ee pe evasın: Bitte BETT 
ne gege. $ 
ns C45):pok 7 
3175 ad-WS1SEr1O1FFarg-ENS.gosn Eee — Z7a1 | 7 Duke DIE DERkSeaSr:poke- 922, Peek = 
3178 poke p,pesek (p) and 127 13987 0208 R . ; 3200 
3180 pr1924+40*z+s:poke p,peek Cp) or 128 zus | Bone yo A,18E:poke HS, RDE: 2 
3185 if x5=-"e" then poke 4I1SE+1B1®Fo,g- 1867 7030 save "@:byl2spacesIch. ramn”,peek 1684 
24+2:x=1:goto 2550 31 : 
= Ba 533 7935 poke 43,1:poke 44,8:poke 45, peek 3789 
3938 : (832):poke 46,peek (833) 
z 7040 x=1:goto 2558 1095 
3993 Ten me en En 7049 tem --------------- —--- -- - - --- 2 
Folgen loeschen load ass 
an x=4S1S2+101*Ffo 1783 7050 gasub 7510 > 503 
4818 For i=-B to 108:poke x+i,8:next 1493 ; » N | M 
4020 gosub SB20:goto 3140 1254 7055 a el Mash 3016 
BE ON ee 7050 load "show£l3spaces,2chm e]”,peek 1848 
muster darstellen c)ı1 
5008 poke p,peek (p) and 127 1307 a nenn 
50905 if x$="[Lupl2” and q>25 then q=q-1: 2926 Tasd 
goto 5028 7100 b 75908 535 
5010 if x$="Cdown]” and q<10® then q=a+i 2318 BE ö 
5020 print tab(Es)”L1Öspanes,i@lefti"g- 461 | 70° print "Lödaun,Bspacesiloading: Bitte ME 
E4”-"a"Lup)" ® Hi . 
5030 poke 2S2,g:poke 63,195:poke 64,7:ays 3671 7118 1a byC2spacesJch. ramm”,peek (2), 2187 
16552 
5040 return 142 Zus Kar 2550 1095 
a ET a a RT IE 
er entgegen 7508 print "Lelr,rvs,uwht,14spacesILOAD / 3956 
6880 if x$="1” then poke p,38:poke ad, yıyg SAUEL1Sspaces,4down]”:poke 53280,6 


Kkc a 7510 print "[C8spaces,chbm @,down,left,rvs) 3715 
c $) T ı9= ’ 
Be a Be ee ade DLoFFJiskl2spacesloder[2spaces, up, 
cbm @,down, left,rvsJCloffJassette 


; „o= + [2spaces]?” 
E84 if xS= then poke p,182:poke ad, 5490 nam 

peek (ad) and 255-2tabs (s-10):s=s+1 a ee ASER 
5858 if 128 then s=-1 

= En 1322 | 7525 if x$="c" then poke 2,1:return 2023 
6868 return ı42 
EB ——— 7538 goto 7528 607 

save 7338: Ten === nn nn ne m a ra 


Hauptprogramm für Lightshow 


4000 10 data a0,00,29,80,8d4,41,03,2d, ea 40f8 310 data 15,903,58,69,ca,ea,ea,ea, ®a 
4008 20 data 40,03,c9,00,00,95,39,64, 14 40f8 320 data ea,ea,sa,sa,sa,ea,ea,0®, ea 
4019 30 data 4c,15,40,a9,52,31,3F,c8, 17 690080 For a-16384 to 16632 step H914 
4018 48 data c0,08,F0,09,4e,41,03,ad, ®1 B:s=®:c=®:for b=® to 7: 

49228 50 data 41,903,4c,07,40,60,ea,ea, 62 gosub 690848 

40928 60 data a9,c0,85,42,29,00,85,41, 18 690108 s=s+th+l-c:c=s>P55:8"P55-s 5934 
4838 78 data ac,42,03,c0,80,f8,0e,a5, 28 and 255:poke a+b,h+l:next 

4038 80 data 41,69,64,85,41,92,02,e6, B5 b:gosub 60949 

4040 58 data 42,88,40,33,40,84,Fd,b1, db 60222 fFS="pruefsumme ok":if s<> 5633 
404B 122 data 41,85,fb,6%,ea,ea,ea,ea, 56 h+l then f$="[rvs] 

4050 118 data 85,02,29,02,£0,0b,c6,ff, 74 pruefsummenfehler”:f=f+1 

4958 : 128 data d®,48,a5,Fe,85,ff,4c,68, 39 60839 gosub 68898:next a:print ” 2267 
4060 130 data 40,ad,2d,dd,29,19,F0,3a, 33 : Edown]”F”fehler”:end 

4268 140 data ad,43,03,cd,42,03,f0,0d, c2 60048 read h$:gosub 69050:h=1* 2715 
4070 1508 data 8d,4?,03,20,28,40,d0,05, ei 16:h$=mid$ Ch$,2) 

4078 1698 data 8d,43,93,F0,eb,a4,fd,cB, d3 60258 l=asc ChSr"x”)-4B:if 1<Q 3198 
4080 178 data c4,fb,d0,11,a5,02,29,01, 52 or 1>22 then 69280 

4088 188 data f0,05,ee,43,03,4c,68,40, 73 60859 if 1<19 then return 1044 
4232 198 data a9,01,ea,ea,ea,b1,41,8d, 85 608978 1=1-7:iF 1>9 then return 1334 
4238 208 data 81,dd,84,40,03,84,fd,28, ce 60988 FS="[rvsleingabefehler”:1=- 24568 
4032 218 data 00,49,4c,31,ea,ea,ea,ea, db BO: E=Erl 

40aB 228 data a2,19,a4,Ff0,b1,41,8d,40, ed 50839 print "zeile” peek (564)* 2726 
4068 230 data 23,20,00,40,c6,Ffc,ca,dd, 67 eSs6+peek (63)f$:return 


40bB 248 data 01,69,25,3F,38,e9,28,85, fa 
40c8 258 data 3f,b9,e7,c6,49,4c,a3,40, Be 


42c8 260 data sa,ea,sa,ea,78,39,50,8d, 32 saven des programms nach starten 
4202 270 data 14,23,29,40,84,15,23,a9, 4c des loaders mit 

40d8 288 data 5Ff,85,3F,29,04,85,40,39, 87 

40e0 280 data Ff,84,45,03,58,69,ea,78, 1d poke 43, O:poke 44, 5% 


40e8B 308 data a9,31,84,14,93,29,ea,8d, a7 poke 45,255:poke 46, B4 


save "name”,3 


Maschinensprache-Programmteil 
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cB090 
c088 
c019 
cß1l8 
cB29 
c228 
c039 
c238 
cBß4o 
cd48B 
c058 
cB5B 
c0d628 
c068 
c0708 
2878 
c080 
c088 


co20. 
c03B° 


cBßad 
cßaß 
c0bO 
cdbB 
c0c® 
c®cB 
cddo 
cBd8B 
cded 
cdeB 
cBF® 
cofB 
e100 
ce1BdB 
c11® 
cellB 
c1208 
c128 
c130 


18 

22 

30 

4® 

52 

68 

78 

88 

90 
100 
118 
128 
130 
140 
150 
160 
170 
188 
190 
290 
218 
228 
230 
240 
250 
269 
270 
2808 
298 
398 
310 
328 
338 
340 
350 
360 
378 
380 
390 


" USW, 


ce38 
cea® 
cea8 
ceb® 
cebB 
cec® 
cec8 
ced® 
ced8 
ceed 
ceeB 
cef® 
cef8 
cfod 
cfoB 
ef1® 
cFiB 
cf2d 
cf2B 
cf3® 
cef3B 
c£f4O 
cF4B 
efSB 
cFf58 
cf62 
cf68 
cf78 
cf78 
cF82 
cFBB 
c£32 
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4680 
4639 
4700 
4718 
4720 
4730 
4740 
4750 
4760 
4770 
4780 
4798 
4800 
4818 
4820 
4530 
4B4@ 
4859 
48568 
4870 
4B80 
4838 
4989 
4818 
4928 
4938 
4949 
4958 
4968 
4978 
4380 
4990 


data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 


data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 


B 


52,01,901,01,01, 
1F,3E S7ELEE,unsE 
ef,df,bf,7f,bE, 


[an 
o 
m 


0a 
wwt 
nm: 
nt 
nm 
Kalle 
SI 
mo 
R 


B3,c1,e8,78, 


A 


FIT ELELERIEET 


5 


EESIFTTETUET TEILTE LTLLELEEN 


NEPBSBRERRHANNN 


RETTET TCM RT 


RE EEE 


888 
g88 
BUBBRERKESD 


80,80, ’ ’ ’ . 
11,09,95,03,01,01,03,25, 
09,11,12,14,18,18,30,68, 
c®,50,30,18,0c,206,03,06, 
8c,18,18,24,66,e7,e7,c3, 
81,81,c3,27,7e,3c,3c,656, 
c3,81,42,24,18,24,42,24, 
18,18,24,42,81,82,84,88B, 
58,20,c0,890,009,00,00,00, 
00,008,00,00,20,00,00,00, 


00,00,00,00,00,00,00,00, 
20,00,00,00,00,00,00,00, 
00,020,00,00,00,00,00,00, 
20,00,00,00,00,00,00,00, 
00,00,00,00,00,00,00,00, 
00,20,00,00,00,00,00,00, 
00,00,00,00,00,00,00,00, 
00,00,00,00,00,00,00,00, 
00,00,00,00,00,00,00,00, 
20,00,00,00,00,00,00,00, 
00,00,00,00,00,00,00,00, 
00,00,00,00,20,00,20,00, 
00,00,00,00,00,00,00,00, 
00,00,00,00,00,00,00,00, 
00,00,00,00,00,00,90,00, 
20,00,00,00,20,00,00,00, 
00,00,00,00,008,00,00,00, 
02,00,00,00,00,20,20,00, 
00,00,00,02,00,00,00,00, 
00,00,00,00,20,00,00,00, 
00,00,00,20,00,00,00,920, 
00,00,00,00,020,00,00,00, 
200,20,00,00,00,00,00,00, 
00,00,20,98,00,00,00,00, 
00,00,00,00,00,00,00,00, 
20,00,00,20,00,00,00,00, 
00,00,00,00,00,00,00,00, 
22,00,00,20,00,00,00,08, 
20,020,00,00,00,00,00,20, 
00,20,09,00,00,00,00,00, 
208,020,00,00,00,00,00,020, 
00,00,00,00,02,00,020,00, 


ıE 


08 
08 
808 
20 
[010] 
14%) 
02 
88 
08 
1]%] 
808 
00 
80 
808 
88 
00 
1910) 
208 
02 
28 


cf3B 50928 data 80,00,30,00,908,02,02,00, 00 
cfa0 5010 data 00,00,090,20,00,28,280,08, 08 
cfaB S028 data 90,90,90,00,92,00,22,08, 88 
cFbd 5030 data ®0,00,00,00,02,20,20,00, @® 
SFfbB 5049 data 09,00,00,00,00,00,00,00, 2® 
cfc® 5950 data 90,00,00,00.00,00.00.00. ©® 
cfcH 5068 data 00,00,00,00,00,00,00,00, 20 


609068 For a-43152 to 53192 step 4136 
8:s=8:c=Bd: for b=® to 7: 
gosub 60248 

60819 s=s+h+1l-c:c=s>255:s=255-s 5034 
and 255:poke atb,hri:next 
b:gosub 60848 

60828 f$S="pruefsumme ok":if s<> 5639 
h+l then f$="[rvs] 
pruefsummenfehler”:Ff=f+1 

528838 gosub 68098:next a:print ” 2267 
EdowunJ”F”Ffehler”:end 

50242 read h$:gosub 60059:h=-1* fette 
15:hS=mid$ Ch$,2) 

Ssee58 l1=asc Chs+”x”)-48:if 1°0 3198 
or 1>22 then 600889 

Sa2EB i? 1<18 then return 1044 

EB878 1-1-7:if 1>9 then return 1334 

SsaaS2 FS=-"Irvsleingabefshler”:1=- 2460 
8e:f=-f*+1 

5ee32 print "zeile” peek (64)* 2726 

255*+re=k (E3IfS:return 


saven des prograsms nach starten 


des 


loaders mit 


poke 43, P®:poke 44,132 
poke 35, EBR: poke 46,207 
save ”name”,8 


Lichtfolgen 
18 rem ---- 4k-ram initialisierung 7-7 
en Fuer lightshow 

11 rem ---- by christoph ramm -—- 

12 

15 SEE 53288,08:poke 52381, 434 

28 EBr i=® to 4042: poke 49152+1, @:next 2424 

e5 

30 For fo=® to 2 770 

48 for q=0 to 14 747 

45 read x:poke 4g152+Fo*1Q1+q, x e455 

58 next :next 256 

55 

62 poke 43,0:poke 44,192:poke 45,202: 3200 
poke 46,297 

78 save "@:by[2spacesIch, ramm”,8,1: 3632 
poke 43,1:poke 44,8:poke 456,10 

B2 Se »eelr, whtlinitializing":end 1806 

81 

Bo=* 

180 data 15 :rem laenge 650 

191 data 128,64,32,16,8,4,2,1,2,4,8,16, 3888 
2. 54 

182 

118 det Sf2spaces}:rem laenge 477 

111 data 128,1932,224,240,8,12,14,15,,,,,3357 

are 

128 data 7[2spaces]:rem laenge 473 

1023- data: 129,66;36, 74, 36,566, ,..,;;, alas 


lnitialisierungsroutine 
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Schluß mit Grauimport: 
Eigene Zeitung 
zum Low- Cost-Preis 


Jetzt gibt es Newsroom in deutscher 
Version. Mit einem Preis unter 100 
Mark wird Desktop-Publishing (DTP) 
für C54-Besitzer zur Attraktion. 


ls im letzten Jahr das Zeitungsdruckprogramm 
Newsroom in Form von Grauimporten auf den deut- 
chen Markt kam, war die Freude groß und kurz. 
Keine Umlaute, englisches Handbuch und 150 stolze 
Mark machten das Programm zu allem anderen als 
einem Verkaufsschlager. Jetzt ist Schluß mit dem Di- 
rektimport. Was erhält man nun für 79,95 Mark? Na- 
türlich eine Programmadiskette, dazu die CLIP-ART- 
Diskette mit 600 Grafiken. Soweit sogut, aber wäh- 
rend es im englischen Handbuch eine Beschreibung 
der Benutzerführung sowie eine Abhandlung über 
Desktop-Publishing gab, findet man in den 16 Seiten 
der deutschen Übersetzung kaum etwas davon wie- 
der. Um mit dem Programm zu arbeiten, ist eine 
Leerdiskette für das Abspeichern von Zwischen- 
schritten wie Texten und Layout erforderlich. Beim 
Erstellen einer Zeitung sollte mit System vorgegan- 
gen werden. Aus einem Menü wählt man zunächst 
das Unterprogrammodul „Banner“ aus. Insgesamt 
stehen hier fünf Zeichensätze für den Kopf der Titel- 
seite zur Verfügung. Drei Zeichensätze eignen sich 
für Überschriften, die restlichen zwei Schriftsätze 
sind für Texte gedacht. 


Eingebautes Fotolabor 


Die Einbindung von Grafikbildern ist ebenfalls vor- 
gesehen. Sobald die Titelzeile kreiert ist, Können die 
einzelnen Artikel erstellt werden. Newsroom teilt die 
gesamte Druckseite in sechs bis acht Teile, soge- 
nannte „Panels" auf. Durch den begrenzten Spei- 
cher kann man immer nur ein „Panel“ bearbeiten. Ist 
inein „Panel“ Text und Grafik einzufügen, sind eine 
Reihe von Arbeitsschritten erforderlich. Zunächst 
wird das „Photo Lab“ aufgerufen. Dieser einfachge- 
haltene Grafik-Editor stellt wichtige Grundfunktio- 
nen wie Kreise zeichnen, Linien ziehen und Flächen 
füllen bereit. Hier kann man eines der mitgelieferten 
Grafikbilder verwenden, modifizieren oder selbst ei- 
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gene Grafiken erstellen. Ist das „Clipart-Bild“ fertig, 
wird es „fotografiert“ und auf Diskette abgespei- 
chert. Das Programmodul „Copy Desk“ wird vom 
Hauptmenü aus aufgerufen. Hier sollten zuerst die 
entsprechenden Bilder plaziert und dann der Text 
gesetzt werden. Dies erspart unnötige Arbeit beim 
Einsetzen von Grafiken in einen Textblock. Der inte- 
grierte Texteditor arbeitet im Grafikmodus des C64. 
Bei längeren Texten macht sich dies in der lang- 
samen Verarbeitungsgeschwindigkeit bemerkbar. 
Texte erscheinen auf dem Bildschirm in Proportio- 
nalschrift. Beim Ausdruck wird Text in der gleichen 
Schriftart wiedergegeben. Außer Insert-, Delete- 
und Blockfunktion verfügt der Editor über automati- 
sches Wordwrap. Dabei wird ein Wort, das wegen 
seiner Länge nicht mehr in eine Zeile paßt, automa- 
tisch in die darunterliegende Textzeile übernom- 
men. Eine Blocksatzfunktion ist im Texteditor nicht 
vorhanden. 


en naca ER 


Textverarbeitung die Blocksatzfunk- 
tion besitzen, setzen so lange Leerzeichen zwischen 
den Wörtern ein, bis der rechte Rand einer Textzeile 
ausgeglichen ist. Sind Bilder, Grafiken und Text aller 
„Panels“ erstellt, kann man an die Gestaltung der 
Zeitungsseite gehen. In Menü „Layout" wird ange- 
geben, wo „Panels“ auf der Seite plaziert werden. 
Mit dem Äbspeichern des Layouts auf Diskette ist 
die Seite fertig zum Druck. Unter „Press" findet sich 
eine große Anzahl Druckertreiber. Von Epson- bis zu 
Commodore-Änpassungen ist nahezu jeder Treiber 
vorhanden. Allerdings müssen beim Arbeiten mit 
Druckerinterface entsprechende Anpassungen aus- 
probiert werden. Die Anpassungen werden auf der 
Programmadiskette abgespeichert und stehen beim 
Neustart von „Newsroom“ sofort zur Verfügung. 
„Wire Service“ ist eine Option, mit der „Newsroom“ 
über Akustikkoppler Bilder, Texte sowie ganze Zei- 
tungsseiten mit anderen Rechnern austauschen kann. 
Einen Nachteil erkauft man sich dennoch: Newsroom 
kann nur mit anderen Newsroom-Programmen kom- 
munizieren. Als Parameter wird lediglich eingestellt, 
ob empfangen oder gesendet wird und um welchen 
Datentyp es sich handelt. Für die englische News- 


möglicht die Umwandlung von „Printshop-Grafikbil- 
dern“ in das Newsroom-Format. Außerdem arbeitet 
Newsroom mit dem „Certificate Maker“, einem Pro- 
gramm zum Erstellen von Urkunden, zusammen. 


programme. In Kürze soll es 
deutschen Newsroom geben. 
der Anwender ein flexibles und 
Desktop-Publishing-System, das trotz 
chen durch sein gelungenes Konze 
So gibt es bereits zwei neue „Clipart 
je 600 neuen Grafiken. Der „Graphics 


THE 


delmann, mit dem N E WS RO oM 


DeltrüvDel an G1985 SPRIHGEOARO SOFTWARE 
PBE 55 


Der Texteditor beherrscht außer Umlzuter zoc# funi ver- Preiswertes D ishing biete 5 
schiedene Zeichensätze. C64-Besitze 1 ktrum reicht vom Flu 
blatt bis zur Sch oder 1 = 2 


‚Competition PRO 5000 | € 64 
mit „-Sche ... 29,907 u 


Speedking „-Scr=ter 29,90 


= 233 Software 


Bedienung — kompilierte Programme können Im Turbotormat 
gespeichert und geladen werden — vollständiges Demopro: 


auf Diskette 59,90 


Ausführliches Info kann angefordert werden. Händleranfragen erwünscht. 
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san 2 39.90 Avenger Cass) 29.90 Mission A.D. (Disk) 39.90 
Sa 72 29.90 Avenger (Disk) 39.90 Germany 1985 (Cass), 1.29.90 
a 7 39.90 Highway Encounter (Cass) 29.90 Germany 1985 (Disk) 39,90 
re De 29.90 Highway Encounter (Disk) 39.90 Tiger In ine Snow (DISK). ü 39,90 
39.90 Break Thru (Cass) 29.90 Starglider (Cass) ; s 39.90 
- 29.90 Break Thru (Disk) 39.90 Starglider (Disk).......+,. ..,49.90 
Des 19.90 Dynamite Dan II (Cass) 29.90 Bulldog (Cass) Fr 29.90 
19.90 Dynamite Dan II (Disk) 39.90 Bulldog (Disk) R san 3990 
29.90 a Glide (Cass) 29.90 Star Soldier (Cass)..... BR NO) 
29.90 ra Glide (Disk) 39.90 Dandy (Cass) i . 29.90 
39.90 It'sKnock Out (Cass) 29.90 Dandy (Disk) Shin 2.39.90 
2990 Crystal 29.90 Police Cadet (Cass) BERN R ]) 
39.90 Lettle ( 29.90 Donkey Kong (Cass)....-. rk) 
23.90 The Pawn (D 49.90 Big Name Bonanza (Cass).. 29.90 
33.90 a. (C n Acro Jet (Cass) k A 29.90 
ze 23.90 oulder Dash Constructionkit (Cass) 24.9 Polapierre (Cass)....... 29.90 
LASER BASIC R 29.50 Dash Constructionkit (Disk) 35.90 Arcanold (Cass) : er Be 29.90 
Erweitert Ihr Basic um mehr als 250 Befehle — $ ria (Cass) 29.90  Arcanoid (Disk). En 35.90 
leistu yeastria (Disk) 39.90 Karate Champ (Cass) 1.9.90 
bis zu 255 x 255 Zeichen Größe Y ERayı! (cas). 29.90 Park Petrol (Cass) ‚9.90 
geln, Drehen und Inverlieren von 25.90 Delta (Cass) RR ..29.90 
EN-ELSE, REPEAT-UN 35.90 DeltaflDisk)........ ..39.90 
uran mit Orts in und vollständiger Pa 25.90 Fire Track (Cass). N } 22222222990 
ramterübergabe tarkes Tonsystem (Me 35.90 Fire Track (Disk) i ..39.90 
könnan in Sprites Ichert und 35.90 For Great Games (CAS$). 4.2... +44 14-90 
) — Zeitteilung (d.h er zu fünf Telle Ihres Pro 25.90 Chalo (Cass) i 39.90 

können gleichzeitig ablaufen 15 ( 35.90 wWorldGames (Ca: RN oe 
Natürlich mit deutscher Anleitung auf Kassette 39.90 rix (Cass) 29.90 Wa ER (23) MEN ae BRIK pe 
auf Diskette 49.90 fix (Disk) 35.90 Ranarama (ÜSS)rauuensesnnnannmnannnnnen...28.90 
LASER COMPILER s Lair (Cass) 29.90 Flight Deck (Disk)....... A.) 
Erzeugt extrem schnellen und kompakten Code — kompiliert au (Disk) 35.90  wWizzards’s Lair (Cass)........... seen 90 
Laser Basic und Basic Lightning — kann selbständi 35.90 Nether Earth (CasS)....... en 25.90 
gramme erzeugen, die ohne Laser laufen — einfache e Rings (Disk) 35.90 Romulus (Cass).. „25.90 


gramm — Ihre kompilierten Programme unterliegen keinen Ho lion 3 (Disk) 39.90 Leaderboard Tornament (Disk)................29.90 
Marketingbeschränkungen Ho 's (Disk).. ...39.90 Los Angeles Swat (Cass) ....9.90 
Natürlich mit deutscher Anleltung..........auf Kassette 49,90 Xe (Disk) . ‚39.90 Star Soldier (CaSS)..1422...404404H 4040000 29.90 

Xe 2.0.8. (Cass).....-.. N 


Denisstraße 45, 8500 Nürnbe 


per (Disk)....... De 


25.90 
Millon 3 (Cass) 29.90 Skyrunner (Disk). 


25.90 


Alle Preise sind unsere Ladenpreise. 
Bei Versand berechnen wir anteilige Selbstkosten: bei Vorkasse mit Scheck: 
DM 2,50, bei Versand per Nachnahme DM 5,90 je Sendung. 
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Kchdande und Sc 
u TU 


Strände und Liegewiesen füllen sich. 
Die Lust, sich leicht zu kleiden oder 
gar zu entblättern, Ist unwidersteh- 
lich. Das ewig alte Problem taucht 
auf. Der Speck muß weg! 


Endlich, die Lösung ist nah: Abnehmen und schlank 
bleiben ist ab sofort mit Hilfe des Computers mög- 
lich. Im ersten Moment kommt die Hoffnung geschli- 
chen 


per 064 W väre das Unvermeidliche leichter. 


e Diät, die ı vom Heise- Verlag 


duktion, Dre von der Bundesz 
lichen Aufklärung herausgegeben wu 
zip hier heißt schonende Abnahme — ausder 
len Entfaltung des Bäuchleins wird nichts. 


Die erste Hürde will genommen werden. Das Anle- 
gen einer Datendiskette — jeder Kurteilnehmer 
braucht eine eigene — dauert seine Zeit. Es wird for- 
matiert und sequentielle Dateien werden angelegt. 
Anschließend ist es erforderlich, die Daten der Ori- 
ginaldisk teilweise auf die persönliche Datendisk zu 
übertragen. Bei nur einem Laufwerk die übliche 
Schaufelei (bis zu dreimal wechseln). 


Bissen für Bissen 


Eine Überraschung folgt: Es wird 14 Tage „normal“ 
weitergegessen und jeder Bissen, jeder Schluck in 
ein Protokoll eingegeben. Wer das durchhält und 
den Mengeschock am besten mit Hilfe eines Psych- 
iaters zu verkraften lernt, wird die anschließende 
Diät locker schaffen. Pro Woche wird die Tagesra- 
tion um maximal 1500 KJ (zirka 360 Kalorien) redu- 
ziert. 

Hier setzt die Unterstützung des Computers ein. Er 
wertet das Protokoll aus. Dabei wird das Eßverhal- 
ten analysiert, wobei die Nahrungsmittel in sieben 
Gruppen eingeteilt werden. Schw rerpunkte können 
erkannt und, wenn der Wille die persönliche Gier 
überwindet, geändert werden. Weiter werden Me- 
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nüvorschläge ausgegeben. Auf der Diskette sind 60 
Menüs und 430 Nahrungsmittel gespeichert, die je 
nach Vorliebe geändert werden können. Jeder kann 
sich so seine eigene Liste erstellen. Damit nicht jeder 
Löffel Zucker oder Mehl gewogen werden muß, 
wird eine Vergleichstabelle angeboten, die in sol- 
chen Fällen für eine exakte Eingabe umrechnet. So 
kann man Woche für Woche den Magen an kleinere 
Mengen gewöhnen und abnehmen. Unterstützung 
erhält man auch durch das Handbuch, in dem weite- 
re Tips zur Änderung des Eßverhaltens gegeben 
werden. Diese sind nicht neu, aber schwarz auf weiß 
— das hilft. Zum Beispiel: Ich räume sofort nach jeder 
Mahlzeit mein Geschirr ı und alle Essensreste weg. 

ur einkaufen, we ı ich vorher gegessen 
dem ı Zettel steht. Ich 
n Gabel mit einer Ku- 
ı Bissen mindestens 15mal 
schmack. Genauso soll 
warum man ißt. 


Langeweile und Liebeskummer 


Klar, wer ißt nicht aus Langeweile, Liebeskummer, 
Ärger oder zu guter Letzt Hunger. Das Bewußtsein 
macht den Unterschied. Wer diese Hilfen befolgt, 
hat eine Chance, abzunehmen und schlank zu bleiben. 
Die Handhabung des Programms ist teilweise recht 
umständlich, aber bei dieser Form der Diät nicht zu 
vermeiden. Wer trotz aller heiligen Schwüre nicht 
durchhält, hat bestimmt magere Tippfinger. 
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ATARI 520 STM. 

In dieser Leistungsklasse hat ATARI 
die Maßstäbe gesetzt. Auch beim Preis. 
Diese Computerleistung zu solch 
niedrigen Preisen kann Ihnen nur bie- 
ten, wer modernste Technologie 
einsetzt. 

ATARI, Computertechnologie von 
heute für Menschen, die mit mehr 
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Moderne Hochsprachen haben ihre 
Tücken. Zeitraubendes Compilieren 
wechselt sich mit wiederholter Feh- 
lerkorrektur ab. Profi-Pascal und 
Kyan-Pascal für den C128 sollen die 
Arbeit erleichtern. 


Als Blaise Pascal im Jahr 1662 seine letzte Berech- 
nung ausführte, ahnte er nicht, daß sein Name drei- 
hundert Jahre später in Informatikerkreisen regel- 
mäßig genannt würde. Der Mathematiker und Philo- 
soph hat zwar mit seinen Arbeiten zur Wahrschein- 
lichkeits- und Infinitesimalrechnung die Mathematik 
um ein gutes Stück weitergebracht, doch die von ihm 
erfundene Rechenmaschine war noch nicht pro- 
grammierbar. Pascal konnte nicht in Pascal pro- 
grammieren. 

Die Programmiersprache wurde erst 1971 von dem 
Schweizer Professor Nikolaus Wirth veröffentlicht. 
Er wollte eine Sprache schaffen, die die systemati- 
sche Lehre der Arbeit am Computer verbessern 
sollte. Die Nachteile des unstrukturierten Program- 
mierens in Basic sollten vermieden, die Studenten 
zum disziplinierten, logisch einwandfreien Program- 
mieren gebracht werden. 

Inzwischen ist Pascal zu einer der beliebtesten High- 
Level-Sprachen geworden, die nicht nur in der Leh- 
re, sondern auch zur Änwendungsprogrammierung 
eingesetzt wird. Im Unterschied zu Basic ist Pascal 
ein nicht-interpretierendes Sprachsystem: Der Pro- 
grammtext wird vor dem ersten Programmlauf voll- 
ständig in eine Art Maschinensprache übersetzt. Da- 
durch ist Pascal den meisten Basic-Systemen im 
Laufzeitverhalten weit überlegen. Dafür vollzieht 
sich die Programmierung mit einem Compiler etwas 
umständlicher: Zunächst wird der vollständige 
Quelltext geschrieben. Anschließend wird das Pro- 
gramm compiliert. Dabei entdeckt der Compiler mit 
einiger Wahrscheinlichkeit einen Fehler im Quell- 
code. Vielleicht wurde ein Buchstabe vergessen 
oder ein Semikolon falsch gesetzt. Nun muß der 
Quelltext erneut editiert und der Fehler beseitigt 
werden. Anschließend folgt ein weiterer Compilier- 
vorgang. Sollte der Compiler wieder einen Fehler 
finden, wiederholt sich das Wechselspiel, bis die 
Compilation fehlerfrei abläuft. 

Anschließend wird bei manchen Compilern noch 
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eine weitere Bearbeitung des Textes vorgenommen: 
Der Zwischencode wird in das lauffähige Maschi- 
nenprogramm umgewandelt. Erst jetzt kann das Pro- 
gramm das erste Mal gestartet werden. Leider wird 
sich bei den ersten Läufen wieder ein logischer Feh- 
ler bemerkbar machen. Also wird der Quelltext er- 
neüt in den Editor geladen und das Spiel Editieren- 
Compilieren-Probieren beginnt von neuem. 

Allerdings gibt es inzwischen auch Pascal-Interpre- 
ter wie Alice von Publicsoft, der sich wie Basic nut- 
zen läßt. Der Interpreter ist zur Zeit allerdings nur für 
Amiga-Besitzer mit Sidecar verfügbar: Alice ver- 
langt nach dem Betriebssystem MS-DOS. Für den 
C128 versprechen zwei Compiler, den Besitzer mit 
einem professionellen Programmiersystem beglük- 


ken zu können. Profi Pascal Plus von Data Becker be- 
zeichnet sich als das professionelle Pascal-Entwick- 
lungssystem, während Kyan Pascal stolz behauptet, 
den ISO-Standard vollständig implementiert zu ha- 
ben. Beide Compiler haben zusätzlich einen Assem- 
bler-Compiler eingebaut, um kleinere Assembler- 
texte in das Pascalprogramm einbinden zu können. 
Da beide Systeme den vollen Befehlssatz der 65xx- 
Familie unterstützen, wird diese Option nicht weiter 
untersucht. 

Für den Programmierer ist der Befehlsvorrat, die 
Compiliergeschwindigkeit und die einwandfreie 
Syntax eines Compilers von vorrangiger Bedeutung. 
Daneben sollte der Übergang von Compiler zu Edi- 
tor und umgekehrt so schnell wie möglich funktionie- 
ren, um lästige Wartezeiten während der Testphase 
zu verhindern. 

Eine Sprachimplementierung sollte keine Abwei- 
chungen vom Standard-Befehlssatz haben, darf aber 
durchaus über Erweiterungen verfügen. Denn nur 
so kann der Quellcode bequem, notfalls per DFÜ, zu 
einem gänzlich anderen Rechnersystem übertragen 
und dort mit einem anderen Compiler für ein ande- 
res Betriebssystem und einen anderen Prozessor 
compiliert werden. Dafür ist allerdings Vorausset- 
zung, daß beide Compiler die gleichen Befehle in 
der gleichen Syntax verstehen. Zumindest sollte ein 
Compiler den Standard-Pascal-Umfang verstehen. 
Zusätzliche Befehle, die in der Regel für Grafik und 
Sound benötigt werden, sind im Standard-Pascal 
nicht vorgesehen, und werden von jedem Compiler 
für eine Zielmaschine nach eigenen Vorstellungen 
implementiert. Erfreulicherweise orientieren sich 
die meisten Compiler dabei an der Syntax der be- 
kannten Grafik- und Soundbefehle aus Basic, so daß 
mit PLOT ein Bildpunkt gesetzt, mit GRAPHIC meist 
der Grafikbildschirm initialisiert wird. 

Da Pascal schon etwas älter ist, hat es einige Opera- 
tionen etwas umständlich realisiert. Für den Disket- 
tenzugriff etwa sind Zeiger auf den Datenpuffer vor- 


gesehen, der mit einer weiteren Anweisung (PUT) 
geschrieben wird. Mehrere Compiler lassen sich auf 
dieses umständliche Verfahren nicht mehr ein. Sie 
verwenden für Diskettenzugriffe die Standard-Be- 
zeichnungen WRITE und READ, die in diesem Fall 
um den Dateinamen erweitert werden. Turbo-Pas- 
cal, das beliebteste System in der semiprofessionel- 
len Pascal-Welt, kennt die GET und PUT Anweisung 
nicht mehr. 

Für die Portabilität eines Quellcodes ergibt sich da- 
her für den Compiler das Problem, ob er nun das 
Standard-Pascal erzwingen oder auch die beliebte- 
sten Modifikationen anerkennen soll. Kyan-Pascal 
geht den sicheren Weg: Es ist streng am ISO-Pascal 
(ISO ist die Internationale Standard-Organisation, die 
einheitliche Regeln festlegt) orientiert und erwartet 
einen Quellcode streng nach den ISO-Regeln. Nur in 
winzigen Punkten weicht Kyan Pascal ab: So kann 
die Standardprozedur PACK und ihr Gegenstück 
UNPACK nicht verwendet werden. Kyan spart auch 
ohne diese Anweisungen so viel Speicherplatz wie 
möglich. 

Profi-Pascal orientiert sich in seinem Sprachumfang 
eher am verbreiteten Turbo-Pascal und implemen- 
tiert die in dieser Pascal-Version eingeführten 
Sprachvereinfachungen zusätzlich zum Standard. So- 
wohl das ISO-Befehlspaar GET und PUT als auch die 
vereinfachte Version mit READ und WRITE werden 
beim File-Zugriff genutzt. Auch können die bei Ein- 
zelplatzsystemen redundanten Vereinbarungen im 
Programmkopf etwas nachlässiger gehandhabt wer- 
den. 


541 ın Platznöten 


Ursprünglich war vorgesehen, in der ersten Pro- 
grammzeile neben dem Programmnamen auch fest- 
zulegen, ob das Programm Eingaben und Ausgaben 
zuläßt und welche zusätzlichen Files benötigt wer- 
den. Da der C128 aber kein mehrplatzfähiger Groß- 
rechner ist, der seine Dateien für jeden Benutzer erst 
auf Anweisung bereitstellen muß, ist diese Vereinba- 
rung überflüssig und kann weggelassen werden. 
Kyan-Pascal jedoch beschwert sich, wenn diese In- 
formationen fehlen. 

Kyan-Pascal besteht aus einem kleinen Editor, dem 
Compiler und einem Makro-Assembler, der die vom 
Compiler erzeugten Zwischendateien umsetzt. Dane- 
ben enthält die Diskette die Runtime-Bibliothek, die 
auf jeder Diskette vorhanden sein muß, von der ein 
Kyan-Programm gestartet werden soll. Auf einer 
1541 wird durch die umfangreichen Dateien der 
Platz etwas eng. Häufiges Diskettenwechseln zum 
Abspeichern einer Datei wird erst auf der 1571 ver- 
mieden. 

Der Kyan-Editor arbeitet in zwei Modi: Im Hauptmo- 
dus wird der Programmtext angezeigt und kann be- 
liebig editiert werden. Zeilen und Textblocks kön- 
nen gelöscht und versetzt werden. Außerdem wer- 
den mehrere Textfiles auf Wunsch zusammenge- 
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führt. Der Editor arbeitet recht zügig, aber nicht 
atemberaubend schnell. 

Im Befehlsmodus wird statt dem Text ein Menü ange- 
zeigt. Der geschriebene Text kann jederzeit abge- 
speichert werden, ohne den Editor zu verlassen. 
Außerdem kann der Name der Datei auch im Editor 
geändert werden, was viele andere Editoren aus un- 
erfindlichen Gründen nicht zulassen. 

Nach dem Editieren wird der Compiler aufgerufen. 
Nach der Angabe der Quelldatei sind mehrere Op- 
tionen verfügbar: Das Programm kann unter ande- 
rem um Hinweise für die Fehlerkorrektur erweitert 
werden, so daß bei einem Runtime-Fehler die verur- 
sachende Quelltextzeile ausgegeben wird. 

Die Compilation und die sich automatisch anschlie- 
ßende Assemblierung erfordert viele Diskettenzu- 
griffe: Das Laufwerk arbeitet unaufhörlich, um den 
Quellcode zu lesen, in der Bibliothek nachzuschla- 
gen und schließlich die beiden Ausgangsdateien zu 
schreiben. Auch mit der 1571 ist die Geschwindig- 
keit nicht berauschend. Schon bei kleineren Pro- 
grammen muß mit mehreren Compilerdurchläufen 
gerechnet werden, da nur wenige Programmierer 
auf Anhieb fehlerlosen Programmtext schreiben 
können. Da summieren sich Sekunden zu Minuten. 
Im Unterschied zu anderen Compiler bricht dieses 
Programm die Compilation jedoch nicht beim ersten 
entdeckten Syntaxfehler ab. Stattdessen wird der 
Quelltext nach weiteren Fehlern durchsucht. Jeder 
Fehler wird mit einem kurzen Hinweis zur vermut- 
lichen Ursache und der Zeilennummer ausgegeben. 
Anschließend wird das Programm aufgerufen. Trotz 
aller Prüfungen kann während des Programmlaufs 
noch ein Fehler auftreten, wenn zum Beispiel eine 
Berechnung einen unzulässigen Wert ergibt. In die- 
sem Fall hält das Programm an und gibt eine kurze 
Fehlermeldung aus. Wurde zur Compilation die De- 
bug-Option aktiviert, erscheint zur Fehlermeldung 
auch die Nummer der Programmzeile, in der der 
Fehler entdeckt wurde. 

Das fertige Programm läuft mit guter Geschwindig- 
keit. Das Testprogramm mit mehreren Rekursionen 
bereitete erst Schwierigkeiten, als die Schachte- 
lungstiefe auf mehrere tausend Durchläufe erweitert 
wurde. 

Bei Profi-Pascal von Data Becker wird tief in das Be- 
triebssystem des C128 eingegriffen. Eine installierte 
RAM-Disk beschleunigt den Zugriff auf häufig be- 
nutzte Dateien und verhilft dem Compiler zu atembe- 
raubender Geschwindigkeit. Sowohl der Editor als 
auch der Compiler sind unter der gleichen Benutzer- 
oberfläche verfügbar. Der Wechsel vollzieht sich 
dank RAM-Disk äußerst schnell, so daß die Fehler- 
korrektur zügig von der Hand geht. 

Der Editor arbeitet mit Zeilennummern. Eine Auto- 
number- und Renumberfunktion erleichtert den Um- 
gang mit dem Zahlenschlüssel. Auf Wunsch werden 
die neuen Programmzeilen automatisch numeriert. 
Einfügungen können nach dem aus Basic gewohnten 
Schema vorgenommen werden. Die Schrittweite der 


automatischen Zählung ist 5, so daß ohne viel Aufhe- $ 
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bens bis zu 4 Zeilen nachträglich eingefügt werden 
können. Anschließend bringt der Renumber-Befehl 
die Zeilennummern wieder in die üblichen Fünfer- 
schritte. 

Der Editor listet auch längere Programme vollstän- 
dig über den Bildschirm. Wie in Basic kann die Aus- 
gabe auf bestimmte Zeilen begrenzt werden, so daß 
eine recht gute Selektion möglich wird. Ein Zurück- 
rollen des Bildschirms wie in einer Textverarbeitung 
oder wie beim Kyan-Editor ist nicht vorgesehen. 
Ohne großen Aufwand gestaltet sich der Übergang 
vom Editor zum Compiler. Zunächst wird der Quell- 
text abgespeichert. Der Editor erlaubt die Eingabe 
eines neuen Namens, mit „*“ jedoch übernimmt er 
den alten Namen der Datei. Anschließend wird der 
Editor mit „Q" verlassen und der Compiler mit „C" 
aufgerufen. Anschließend reicht wiederum die An- 
gabe des Sternchens, um die zuletzt bearbeitete Da- 
tei zubenennen. Mehrere RETURNs akzeptieren die 
Standardoptionen des Compilers. Außerst zügig 
durchforstet der Compiler nun den Quelltext und 
setzt ihn in eine Zwischendatei um. Sollte ein Fehler 
erkannt werden, ertönt ein Warnton und der Com- 
piler hält vorübergehend an. Auf dem Bildschirm 
steht dann neben der Fehlemummer die fehlerhafte 
Zeile mit der dazugehörigen Nummer. Auf Knopf- 
druck wird die Compilation fortgesetzt und weitere 
Fehler werden gesucht. Anschließend springt das 
Programm automatisch in den Editor zurück und lädt 
den fehlerhaften Quellcode. 

Auf diese Weise lassen sich Fehler schnell beheben. 
Das System ähnelt dem Turbo-Pascal, das erstmalig 
Editor und Compiler in einem einzigen Programm 
vereinigte, So wird die Arbeit mit einem Compiler 
fast genauso komfortabel wie die mit einem Interpre- 
ter. 

Bezüglich der Compilierzeit erübrigt sich ein Ver- 
gleich zwischen Kyan und Profi-Pascal: Während die 
Ausarbeitung eines kleinen Testprogramms für den 
Kyan-Compiler (auch aufgrund seiner restriktiven 
ISO-Syntax) fast zwei Stunden dauerte, gelang die 
Übertragung des Turbo-Pascal-Progrämmchens in 
das Profi-System innerhalb einer halben Stunde. 
Dabei zeigte sich, daß bei kürzeren Programmen die 
Arbeitsgeschwindigkeit von Profi-Pascal (im Fast- 
Modus) mit der eines Bürorechners vergleichbar ist. 
Jede Messung war überflüssig, da subjektiv keine 
Unterschiede feststellbar und mit einer Stoppuhr 
nicht erfaßbar waren. 

Profi-Pascal orientiert sich in seinem Befehlsumfang 
sowohl an dem Standard-Pascal von Wirth, erweitert 
jedoch den Befehlsumfang um die heute verbreite- 
ten Zusätze. Pointer sind normgerecht auf dem Heap 
implementiert. Der Heap ist ein freier Speicherbe- 
reich, in dem beliebige Variablen abgelegt werden 
können. Im Unterschied zu den sonst üblichen Varia- 
blen müssen Anzahl und Umfang der dynamischen 
Variablen nicht bereits bei der Programmierung 
festgelegt werden, wodurch das Programm flexibler 
wird. Es paßt sich den zur Laufzeit auftretenden Da- 
tenmengen flexibel an, solange die Hardwaregren- 
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zen nicht überschritten werden. Dafür muß der Pro- 
grammierer den Heap mit Zeigern (in Pascal Pointer 
genannt) selbst verwalten. Allerdings sind die Zei- 
ger relativ einfach handhabbar. 


Zusätzlich eingebaut sind die Prozeduren MARK und 
RELEASE, die den Heap auch schrittweise wieder 
freigeben können. Mit diesen drei Sprachelementen 
werden dynamische Variablen komfortabler verwal- 
tet als mit der ebenfalls vorhandenen Standardpro- 
zedur DISPOSE. Damit kann im Unterschied zum 
Kyan-Pascal der Heap auch schrittweise aufgefüllt 
und wieder freigegeben werden, wodurch bei ge- 
schickter Programmierung noch mehr dynamische 
Variablen verwaltet werden. 


Ein besonderes Problem in Pascal sind die Zeichen- 
ketten. Im Standard-Pascal ist dieser Variablentyp 
nur als Array von Einzelbuchstaben definierbar. Da 
diese Form aber etwas umständlich ist, haben die 
Entwickler von Profi-Pascal den Datentyp String als 
Zeichenkette von 132 Zeichen Länge vordefiniert. 
Erstaunlich sind die implementierten Zusatzbefehle 
zur Grafik auf dem 80-Zeichen-Bildschirm. Sie sind 
zum Teil in Assembler geschrieben und werden erst 
beim Compilieren eingebunden. Eine auf der 
Systemdiskette enthaltene Demonstration zeigt ne- 
ben der Fenstertechnik auch Hilbert-Kurven in über- 
zeugender Geschwindigkeit. 


Der eingebaute Assembler erlaubt dem versierten 
Programmierer, den Befehlsumfang wie beim Kyan- 
Pascal nach eigenen Bedürfnissen zu erweitern. Die 
gewünschten Prozeduren und Funktionen werden 
als externe Dateien abgelegt und erst beim Compi- 
lieren integriert, so daß sie den eigentlichen Pro- 
grammtext nicht „verunstalten“, 


Als letzter Programmpunkt bietet Profi-Pascal ein 
umfangreiches Utility-Paket zur leichten Disketten- 
handhabung an. Neben Befehlen zum Löschen und 
Umbenennen können beliebige Diskettensektoren 
und Dateien in nahezu jeden RAM-Bereich geladen 
werden. Außerdem wird die Anfertigung von Back- 
ups unterstützt. Dieses Utility ist unumgänglich, da 
Profi-Pascal aus Geschwindigkeitsgründen ein eige- 
nes Diskettenformat benutzt, das unter dem norma- 
len Betriebssystem der Diskettenstationen nicht be- 
arbeitet werden kann. Daher sind auch die erzeug- 
ten Programme nur von einer Profi-Pascal-Diskette 
lauffähig — eine unerfreuliche Einschränkung. 


Im Vergleich schlägt Profi-Pascal den Kyan-Compi- 
ler um Längen. Es ist schneller, umfangreicher und 
wesentlich komfortabler als sein Konkurrent. Auch 
bei den Handbüchern ist die Entscheidung klar: Das 
Kyan-Handbuch ist in Englisch abgefaßt, während 
das Data-Becker-Handbuch natürlich in Deutsch ist. 
Die hohe Kompatibilität zum Profi-Pascal für den C64 
erkennt der Leser daran, daß für beide das gleiche 
Handbuch geliefert wird. Lediglich eine 60seitige 
Ergänzung weist auf die zusätzlichen Merkmale der 
128er Version hin. 
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Hunger durch Überfluß? 


Allgemein wird angenom- 
men, daß allein die Über- 
bevölkerung, fehlendes 
Ackerland oder Natur- 
katastrophen schuld am 
Hunger seien. Das stimmt 
so nicht, denn schon 
heute werden weltweit pro 
Person und Tag zwei 
Pfund Getreide produziert, 
rund 3000 Kalorien. 
Eigentlich müßte niemand 
hungern. Trotzdem ster- 
ben jährlich Millionen Men- 
schen an Unterernährung. 
Hunger ist also auch ein 
Problem der gerechteren 
Verteilung. Schritte in die 
richtige Richtung sind 

alle Maßnahmen, die den 
Armen in Entwicklungs- 
ländern helfen, eigene 
Wege zur Selbstversor- 
gung zu finden. Die Bauern 
müssen Zugang zu 
Krediten mit vernünftigen 
Bedingungen haben. 
Landreformen müssen die 
ungerechte Bodenvertei- 


lung ändern. Landbesitz- 
sicherung und Rechtshilfe 
für Kleinbauern sind 
dringend erforderlich. Die 
Bauern müssen Lagerung 
und Vermarktung ihrer 
Produkte auf genossen- 
schaftlicher Basis selbst in 
die Hand nehmen können. 
Denn auch in den kom- 
menden Jahren wird nur 
die eigene Landwirtschaft 
den wachsenden Völkern 
die Lebensgrundlage 
liefern. 

Informationen zu »Hunger 
durch Überfluß?« erhalten 
Sie kostenlos von »Brot 
für die Welt«, Postfach 476, 
7000 Stuttgart 1. 
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board- 


Gebrauchs- 
Anweisung 


l. Anzeigentext in die vorgedruckten 
Zeilen der Karte schreiben — 
maximal 6 Zeilen mit Anschrift 
oder Telefon-Nummer (pro Buch- 
stabe, Satzzeichen, Wortzun- 
schenraum = 1 Kästchen) 

2. Rubrik, Bereich und Zahlungswei- 
se ankreuzen, Ädresse auf der 
Rückseite der Karte angeben. 

3. Datum und Unterschrift nicht ver- 
gessen 

4. Karte zusammen mit 5-DM-Schein 
oder V-Scheck über DM 5,— in 
Umschlag stecken. 

5. Umschlag zukleben, ausreichend 
frankieren und abschicken an: 
CW-Publikationen 
— RUNboard — 

Postfach 40 04 29 
8000 München 40 

6. Die Anzeige erscheint im nächst- 

möglichen RUNboard. 


Ich habe die Gele- 
genheit genutzt! 


gm 


Ichhabe- am 4. 1 Es 
Gelegenheits-Anzeige im RUN- 
board bestellt. Sechs Zeilen zum 
Taschengeld-Tarif von nur DM 5. — 
inkl. ges. Mehrwertsteuer. Die DM 5,— 
habe ich der Bestellung beigelegt als 


o V-Scheck o Geldschein 


eine 


-o-thek 
Disketten-Service 


gm® 


Ichhabe am beider 


RUN-o-thek Diskette(n) 
mit den Programmen aus RUN- 


Ausgbe________bestellt. 
Preis pro Diskette: DM 21,80 plus 
DM 3,— Versandkosten = DM 24,80 


© Bezahltmit V-Scheck-Nr._____ 
Konto-Nummer 
BLZ/Geldinstitut 

© Ich bezahle per Nachnahme. 


Die RS-232-Schnitt 


Schnittstellen-Fachmann Uwe Ger-. 
lach erklärt die Stärken und Schwä- 
chen der Datenübertragungs-Schnitt- 
stelle des C64. 


Der C64 ist schon eine tolle Maschine, deren Fähig- 
keiten längst noch nicht ausgeschöpft sind. Gerade 
fangen die Softwarehäuser an, sich darauf zu besin- 
nen, daß er eine RS-232-Schnittstelle hat, über die 
leicht zwei Geräte zu koppeln sind. Mal abgesehen 
von Telefonmodems blieb dieser wertvolle Kanal zur 
Umwelt bisher unbenutzt. Zur Zeit bieten nur verein- 
zelt Spiele die Möglichkeit, einen zweiten Computer 
simultan mit ins Geschehen einzubeziehen. Das geht 
nicht nur über die auf Dauer noch etwas teure Tele- 
fonleitung, sondern auch direkt mit einem Kabel: ei- 
nem sogenannten Nullmodem. Doch schauen wir uns 
zunächst die RS-232-Schnittstelle des C64 und ihre 
Bedienung etwas genauer an. 


Bit für Bit im Gänsemarsch 
EITITETIIIIT 


Die Grundidee bei dieser seriellen Verbindungsart 
ist es, die Daten nicht byteweise, sondern Bit für Bit 
als Spannungsimpulse zu übermitteln. Dies ge- 
schieht mit einer vorher genau festgelegten Ge- 
schwindigkeit, damit der Empfänger den Sender 
überhaupt verstehen kann. Die Übermittlungsge- 
schwindigkeit wird in Baud gemessen. Ein Baud ist 
genau ein Bit in einer Sekunde. Tabelle 1 gibt die ge- 
bräuchlichen Baudraten an. 
Um Sender und Empfänger zeitlich exakt aufeinan- 
der abstimmen (synchronisieren) zu können, werden 
in der Praxis Pakete von 5 bis 8 Datenbits übertra- 
gen, die von einem Start-Bit und 1 bis 2 Stop-Bits ein- 
gerahmt sind. Das Start-Bit hat grundsätzlich Low- 
und das Stop-Bit High-Pegel. Dadurch entsteht bei 
der Übertragung zwischen zwei Bytes immer eine 


Tabelle 1: Übliche Baudraten bei serieller Übertragung 
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fallende Flanke, aus der eine geeignete Vorrichtung 
im Empfänger (Soft- oder Hardware) den Sendetakt 
zurückgewinnen kann. Eine Datenübertragung mit 
einer einzigen zweiadrigen Leitung ist damit durch- 
aus möglich. 

Vor dem Stop-Bit kann zur Fehlererkennung noch ein 
sogenanntes Paritäts-Bit vereinbart werden, das die 
Anzahl der High-Zustände im Datenpaket immer ge- 
rade oder ungerade macht. Sind zum Beispiel in ei- 
ner 8-Bit-Übertragung 5 Bits High, wird das Paritäts- 
Bit vom Sender ebenfalls gesetzt, falls gerade Parität 
vereinbart wurde. Im Empfänger wird der Zustand 
der Bits überprüft und Einzelfelder können erkannt 
und angezeigt werden. 


Hohe Pegel und lange Strecken 
ne a 2 ey 


Um die Störanfälligkeit besonders bei Langstrecken- 
Übertragungen zu vermindern, wurde bei der RS- 
232-Norm von den sonst üblichen TTL-Pegeln abge- 
wichen. Schon der Leitungswiderstand des Kabels 
würde auf sehr langen Strecken nämlich bewirken, 
daß ausgesendete High-Pegel beim Empfänger 
nicht mehr mit 5 Volt ankämen, sondern vielleicht 
nur noch mit 2 Volt, was bereits als ein Low-Signal in- 
terpretiert werden müßte. 

Bei der RS-232-Norm einigte man sich aus diesem 
Grund auf Spannungen von —12 bis —3 Volt für ein 
gesetztes Bit und +3 bis +12 Volt für eine logische 
Null. Wegen der sich um maximal 24 Volt unterschei- 
denden Potentiale wurde die RS-232-Übertragung 
hierzulande V.24-Norm getauft (DIN 66 020). Allein 
die Definition, welche Spannung für 1 und welche für 
0 steht, ist unterschiedlich, was allgemein zu einiger 
Verwirrung führt. Hier kann nur der Rat gegeben 
werden: nicht auf Beipackinformationen verlassen, 
sondern im Einzelfall selbst nachprüfen! Auch bei 
den Herstellern wird oft manches durcheinanderge- 
worfen. Im Falle eines Falles helfen zwischenge- 
schaltete Negierer weiter, 

Wie gesagt ist die Übertragung von Daten grund- 
sätzlich mit den dargestellten Vereinbarungen über 
eine nur zweiadrige Verbindung möglich. Die Be- 
zeichnung der Sendeleitung ist allgemein TXD 
(Transmit Data = Sendedaten); die andere AÄder 
stellt natürlich die Masseverbindung her. 

Will man gleichzeitig auch Daten wieder zurück- 
schicken, wird eine dritte Ader nötig. Ihre Bezeich- 
nung ist gewöhnlich RXD (Receive Data = Emp- 
fangsdaten). Damit können auch Geräte bedient 
werden, die nicht so schnell arbeiten wie der Sen- 
der, indem auf der Rückleitung ein bestimmtes 
Zeichen übermittelt wird, um den Sender erst einmal 
zu stoppen. Es handelt sich um ein sogenanntes Soft- 


stelle 


wareprotokoll, wovon das gebräuchlichste das XON- 
XOFF-Protokoll ist. Dabei werden die beiden ASCII- 
Steuerzeichen DC3 (XOFF = $13 = CTRL-S) und 
DC1(XON = $11 = CTRL-Q) verwendet. Mit XOFF 
stoppt der Datenempfänger die Sendung seiner Ge- 
genstation, während er intern zum Beispiel mit Aus- 
drucken oder Abspeichern beschäftigt ist, mit XON 
dagegen meldet er, daß er wieder zur Aufnahme 
weiterer Zeichen bereit ist. Sender und Empfänger 
müssen dann allerdings in der Lage sein, gleichzei- 
tig zu senden und zu empfangen. 

Es geht auch anders, wie die EXT-ACK-Prozedur 
zeigt. Der Computer sendet hier einen ganzen Da- 
tenblock, der mit EXT (End Of Text = Textende = 
$03) abgeschlossen wird. Sobald er von der Gegen- 
station komplett verarbeitet ist, sendet diese das 
Steuerzeichen ACK (Acknowledge = Bestätigung = 
$06) zurück, woran der Computer erkennt, daß er 
jetzt den nächsten Datenblock senden kann. Die 
EXT-ACK-Prozedur setzt mindestens empfangsseitig 
einen Pufferspeicher voraus, da der Empfänger die 
Übertragung während eines Datenblocks nicht an- 
halten kann. 

Falls es die Hardware erlaubt, ist es meist einfacher, 
eine zusätzliche Handshakeleitung zu realisieren: 
DTR (Data Terminal Ready = Datenempfänger be- 
reit), Kann der Empfänger keine Daten mehr aufneh- 
men, braucht er nämlich lediglich diese Leitung zu 
aktivieren. Der Sender wartet daraufhin so lange, bis 
das Signal wieder zurückgenommen wird. 


Datenverlust bei Übertragung — 
nein danke! 


Besonders bei Übertragungen mit hohen Baudraten 
über sehr lange Kabel oder in gestörten Umgebun- 
gen kann es schwierig sein, den Takt aus den seriel- 
len Daten zurückzugewinnen. Manche Geräte besit- 
zen gar keine eigenen Taktgeber. Es ist dann sinn- 
voll, die Synchronisationsimpulse auf einer separa- 
ten Ader einzeln mit zu übertragen. Dafür sind die 
Anschlüsse TC (Transmit Clock = Sendetakt) und 
RC (Receiver Signal Clock) miteinander zu verbin- 
den. 

Die eben aufgeführten Leitungen kann der C64 mit 
seiner eingebauten Schnittstellensoftware handha- 
ben. Dazu werden diverse Anschlüsse am Userport 
benutzt. Tabelle 2 zeigt, welche Funktionen die ein- 
zelnen Pins bei RS-232-Betrieb haben. 

Der C64 benutzt nicht die seriellen CIA-Ports für sei- 
ne RS-232-Handhabung, sondern das Betriebssystem 
installiert über CIA #2 einen NMI-Betrieb höchster 
Ordnung, der verdeckt hinter Basic- oder Maschi- 
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A GND  Protectiv Ground ABA GND - 12 
B —FLAG2 Received Data BB Sin ein 12 
c PBO Received Data BB Sin ein 12 
D PPI Request To Send CARS as 12 
E PB2 DataTerminalReady CD DIR aus 12 
F PB3 Ring Indicator CE RI. ein 3 
H PB4 ReceivedLineSignad CF DCD ein 2 
J PB5 en. 9 
K PB6 Clear To Send CB CTS ein 2 
L PB7 Data Set Ready CC DSR ein 2 
M PA2 Transmitted Data BA Sout aus 12. 
A GND __ Signal Ground AA GND. 1.28 
Tabelle 2: Pinbezeichnung der Userport-Pins bei RS-232- 
Betrieb 
Kontrollregister: 
it(s) Inhalt Wert 0 Funktion ; 
32,10 I 0000 0 selbstdefinierte Sein 
01 1 50 Bit/s 
010 2 B Bis 
011 3 110 Bis 
0100 4 134,5 Bit/s 
0101 5 150 Bit/s 
0110 6 a0 Bivs 
ll 7 600 Bit/s 
1000 8 1200. Bit/s 
1001 9 1800 Bit/s 
1010 10 Ei 2400  Bit/s 
4 X 16 nicht benutzt). 
6,5 M 0 8 Datenbits 
0 32 7 Datenbits 
10 64 6 Datenbits 
1 % 5 Datenbits 
7 0 0 1 Stoppbit 
l 128 2 Stoppbits 


0 0 


0 


$line GoftwareProtokl) 
1 l X-Line (Hardware-Protokoll) | 


A 


4 0 2 Vollduplex 
E l Halbduplex N 

165 000 keine Paritätsüberprüfung 
001 32 ungerade Parität 
010 64 keine Paritätsüberprüfung 
gl % geradePantt 
100 28 keine Paritätsüberprüfung 
101 160 8. Datenbit = 1, keine Pantät 
110 192 keine Paritätsüberprüfung 

224 


Tabelle 3: Die Register der RS-232-Schnittstelle 


8. Datenbit = keine Parität _ 
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nenprogrammen abläuft. Um den Verlust von Daten 
zu verhindern, werden zu Anfang der Übertragung 
zwei FIFO-Pufferspeicher generiert, die jeweils 256 
Bytes umfassen. Trotzdem können während des Kas- 
settenbetriebs oder bei Aktionen auf dem seriellen 
Bus keine RS-232-Daten empfangen werden. Bei um- 
sichtiger Programmierung sollte das aber keine Pro- 
bleme bereiten. 

Der C64 verwaltet auch die RS-232-Schnittstelle wie 
etwa die Floppy oder den Drucker als Periphe- 
rieeinheit. Sie kann als Gerät mit der Nummer 2 an- 
gesprochen werden. Zur Bestimmung der Kontroll- 
parameter sind zwei Register vorhanden, die auch 
von Basic aus zugänglich sind. Tabelle 3 zeigt, wel- 
che Funktion die einzelnen Bits in diesen Registern 
erfüllen. 


Aktivieren ohne Probleme 
Ra EEREERRIEHTTTRSE 


Mit Hilfe dieser Tabelle kann man die Werte bestim- 
men, die in den beiden Registern stehen müssen, um 
ein bestimmtes Übertragungsprotokoll zu erreichen. 
Das Aktivieren der RS-232-Schnittstelle geschieht 
dann mit : 
OPEN Filenummer,2,0, CHR$(Kontrollregister) + 
CHR$(Kommandoregister) 
Die in der Tabelle angegebenen Dezimalwerte der 
gewünschten Merkmale werden einfach addiert. 
Beispielsweise legt man durch 
OPEN 1,2,0,CHR$(6+64+0) + CHR$(1+0+32) 
für Filenummer ] eine Vollduplexübertragung mit ei- 
nem Stoppbit, 6 Datenbits, 300 Baud, ungerader Pari- 
tät und Hardwareprotokoll fest. Wird eine Filenum- 
mer größer als 128 verwendet, sendet der Computer 
nach jedem Carriage Return (= Wagenrücklauf $0D) 
ein Linefeed (= Zeilenvorschub $0A). 
Das Betriebssystem des C64 verfügt über eine Feh- 
lerbehandlung der RS-232-Schnittstelle, die entwe- 
der von Basic aus mittels der Statusvariablen ST oder 
direkt durch Auslesen der Speicherzelle $0297 (= 
dezimal 663) abgefragt werden kann. Tabelle 4 ent- 
hält die Bedeutung der einzelnen Bits. 
Leider gibt der C64 am Userport bei RS-232-Betrieb 
nur TTL-Pegel aus, so daß zumindest in diesem Punkt 
die Norm nicht voll erfüllt wird, doch gibt es inzwi- 
schen integrierte Bausteine, die alle Signale ohne 
Probleme normgerecht machen können. Üblicher- 


IE 


Tabelle 4: Bedeutung Fe Status- Bits. 
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Verbindung zweier Ge für Soft- Fer Een 
produkte 


weise benötigen sie dazu eine symmetrische Versor- 
gungsspannung mit +12 Voltund —12 Volt. Eine Aus- 
nahme bildet der MAX 232 von Maxim, der sich mit 
einer einfachen Versorgungsspannung von +5 Volt 
begnügt. 

Will man einen C64 mit einem anderen C64 oder mit 
einem C128 verbinden, braucht man nicht auf die 
von der Norm abweichenden Spannungen zu ach- 
ten. In diesem Fall genügt theoretisch bereits ein Ka- 
bel. Bei Betrieb mit Softwareprotokoll ist eine Volldu- 
plexübertragung bereits mit den drei in Bild 1 ge- 
zeigten Verbindungen möglich. Für Hardwareproto- 
koll müssen noch zwei Leitungen zusätzlich nach Bild 
2 spendiert werden. Aber Vorsicht! Ohne zusätzliche 
Elektronik darf das Kabel höchstens 1,5 Meter lang 
sein. 

Diesen Hinweis sollte man unbedingt ernst nehmen. 
Ein langes Kabel ist eben keine ideale elektrische 
Verbindung, wie uns der schlichte Strich im Schalt- 
plan glaubhaft machen will. Da gibt es nicht nur den 
allgemein bekannten spezifischen Widerstand im 
Leiter, sondern auch kleine Induktivitäten, wenn das 
Kabel zum Beispiel in einer Schlaufe liegt, und kapa- 
ziive Wirkungen der nebeneinandergeführten 
Adern untereinander. Achtung: Alle diese uner- 
wünschten Effekte wachsen mit zunehmender Kabel- 
länge. 


Greifen wir nur einmal die kapazitive Wechselwir- 
kung zwischen einer Daten- und der Masseleitung 
heraus. Zunächst sollen beide gleiches elektrisches 
Potential besitzen, die Datenleitung soll also auf Mas- 
se liegen. Die beiden betrachteten Adern sind auf 
der gesamten Kabellänge dicht nebeneinanderge- 
führt, nur durch ihre Isolierungen getrennt. Sie bil- 
den damit einen Kondensator. Jetzt wechselt die Da- 
tenleitung innerhalb sehr kurzer Zeit von 0 Volt auf 
+5 Volt. Der Kondensator muß sich sehr schnell auf- 
laden und entnimmt dabei dem treibenden CIA im 
ersten Moment einen sehr großen Strom. Genau das- 
selbe passiert auch wieder beim Umladen in den 
Ausgangszustand. Je größer die Kabellänge und da- 
mit der Wert des gebildeten Kondensators ist, um so 
größer wird die Strombelastung für den CIA-Bau- 


stein. Irgendwann einmal brennt einer seiner Lei-»> 


WWW.HOMECOMPUTERWORLD.EOM 


Schaltung der RS-232- 
Treiberplatine 


Selbständig ins neue Jahr 
19837 


Werden Sie Ihr eigener Chef : unabhängig sein, sich 
selbst beweisen - eigene Entscheidungen treffen 


WERDEN SIE AGENTURINHABER 
FÜR TELE-INFORMATION 


Einer der modernsten Berufe mit besten Erfolgs- 
u. Zukunftsaussichten. Eigene Schulung. Sind Sie als 
unser Franchisepartner beruflich erfolgreich. Gründen 
Sie Ihre erfolgreiche Laufbahn. 


= 


UNIX Datenverwaltungs- und Treuhand - Gesellschaft mbH 
8134 Pöcking - Postfach 61 - Tel.: 08157/7838 
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tungstreiber durch und macht ihn damit unbrauch- 
bar. Unter DM 40,— ist danach mit Sicherheit nichts 
mehr zu wollen. 

Trotzdem sind längere Verbindungen möglich. Die 
beiden Computer können sogar durchaus in ver- 
schiedenen Räumen stehen, denn mit externen Trei- 
bern kann man dem CIA etwas Arbeit abnehmen. 
Bei dem 74LS241 handelt es sich um einen speziellen 
Leitungstreiber-Baustein für acht Adern, der wesent- 
lich mehr Strom liefern kann als der CIA. Bringt man 
ihn gleich am Userport an, dann darf das Kabel ruhig 
mal zehn Meter lang sein. Und sollte wirklich einmal 
etwas schiefgehen, dann ist höchstens der Treiber- 
baustein auf der Zusatzplatine hin, und Sie sind mit 
zwei Mark wieder dabei. 


Zwei-Mark-Low-cost-Reparatur 


Über die Schaltung (Bild 3) werden alle RS-232-Si- 
gnale gepuffert, und zwar nicht nur die Ausgänge, 
sondern auch die Eingänge, was etwa bei Kurz- 
schlüssen wichtig ist. Einzige Ausnahme davon bil- 
det das Signal RI (Ring Indicator), das ungepuffert 
durchgeschleift wurde. 

Die Platine nach dem abgebildeten Layout (Bild 4) 


kann direkt an den Userportstecker (zum Beispiel 


Cardcon-Stecker Nr. 251-1250 der Firmä TRW) 
angelötet werden. An der gegenüberliegenden Sei- 
te ist eine Zugentlastung mit einem Metallbügel vor- 
gesehen, so daß ein Gehäuse entiallen kann Wer 


will, kann die Platine auf die im Layout angedeutete 
innere Begrenzungslinie zuschneiden. Sie paßt dann 
in die üblichen Userport-Steckergehäuse. 

Die wenigen Bauteile (zusammengestellt in Tabelle 
5) werden nach dem Bestückungsplan (Bild 5) verlö- 
tet. Dabei bitte nicht die Lötbrücke und die Verbin- 
dung für +5 Volt Versorgungsspannung vergessen. 
Der 5-Volt-Anschluß ist der einzige benutzte Kontakt 
der oberen Leiste am Userportstecker und befindet 
sich vom Computer aus gesehen an zweiter Stelle 
von rechts (Anschluß 2). 

Das drei- beziehungsweise fünfpolige Kabel für ein 
Nullmodem sollte eine Abschirmung besitzen, die 
für optimalen Betrieb nur an einem Kabelende an 
Masse gelegt werden darf. Nur so bleibt sie nämlich 
stromlos und es ist sichergestellt, daß an ihr kein Po- 
tentialabfall entlang des Kabels auftreten kann. 
Ebenso sollten eventuell überzählige Adern an die- 


Keramik N: oder Tantal 


BE 


Tabelle 5: Der Einkaufszettel für eine Platine 
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Cardcon-Stecker 


Platinenlayout 


Das Platinen-Layout 


Bestückung der Treiberplstine 


sem Ende mit an Masse gelegt werden, während sie 
auf der anderen Seite unbeschaltet bleiben. Diese 
Maßnahme verstärkt den Äbschirmeffekt. 

(Uwe Gerlach) mkmirE EEE TEEEIEN 


Hardwarerichtig 
abgeschickt 


Die RUN-Redaktion freut sich über jede Hard- 

ware-Bastelei. Für möglichst schnelle Bearbeitung 

sollte der Einsendung folgendes beiliegen: 

— Musterexemplar der Hardware 

— Schaltplan, Bestückungsplan, Stückliste, Plati- 
nenlayout (möglichst Film) 

— detaillierte Beschreibung (Textausdruck bitte 

mit 35 Zeichen pro Zeile. Textfiles in Format MS- 

DOS, Textomat oder Vizawrite sind herzlich will- 

kommen!) 

Sämtliche Teile möglichst gut verpacken — Paket- 

aufschriften wie „zerbrechlich" oder „bitte nicht 

knicken" werden selten beachtet! 

Wer Fragen hat, wendet sich bitte an Herrn Nick- 

les (Tel.: 0 89/3 60 86-252). 


Aktuelle COMMODORE Buchhits 


Szczepanowski 


Ein DATA BECKER Buch 


[ 


Angefangen und gleich richtig loslegen - das 
wünscht sich jeder, der in die Computerel ein- 
stelgt. Mit 64 für Einsteiger geht das ganz pro- 
blemlos. Vom Anschluß über ein erstes Pro- 
gramm bis hin zu einer kompletten Adreßver- 
waltung wird Ihnen dieses Buch immer wieder 
gute Dienste leisten, Alle Themenbereiche wer- 
den systematisch und verständlich dargestellt. 
Aufstellen, anschließen, kennenlernen, das 
erste Programm - und schon kann es weiter- 
gehen. 64 für Einsteiger, natürlich auch mit 
einer umfangreichen GEOS-Einführung. 

64 für Einsteiger, 251 Seiten, DM 29,— 


Plenge 


Ein 
DATA BECKER 
Buch 


Supergrafik - das heißt über 100 neue 
Befehle, 16 Sprites, Text und Grafik gleichzeitig 
Hires- und Multicolor-Grafik, und neben einer 
Einführung In die Arbeit mit Supergrafik zu 
jedem neuen Befehl Beisplelprogramme. 
Außerdem: Funktionsplofter, 3-D-Grafik, Hard- 
waregrundlagen und - eine vollständige 
Dokumentation des Supergrafik-Source-Code. 
Das Supergrafik-Buch zum C64 

726 Selten, Inkl. Diskette, DM 49,— 


EIN DATA BECKER BUCH 


Mit dem Commodore 128 Ist der professionelle 
Einstieg in die Computerwelt möglich - vor- 
ausgesetzt, Sie haben das richtige Buch dazu. 
Denn es gibt viel zu verstehen: Laden und 
Starten von Programmen, Peripheriegeräte, 
BASIC, das Erstellen eigener Programme wie 
zum Beispiel einer Adreßverwaltung und und 
und. Dieses Buch Ist genau auf die Bedürf- 
nisse elnss Einsteigers zugeschnitten - so 
bleibt kein Problem ungelöst. Mit GEOS-Einfüh- 


rung. 
Commodore 128 für Einsteiger 
288 Seiten, DM 29,— 


Ein DATA BECKER Su 


Für dieses Buch ist keine lange Worrsde nötig. 
Ein paar Daten zur neuesten Aufioge: 5, völlig 
überarbeitete Auflogs, 528 Se#en. Auszug aus 
dem Inhalt: Soft-Scroling, Sprungvektoren und 
Autostart, komplette Hardwars-Beschreibung, 
Reparaturhilfen, die CiAs, der BASIC-Interpre- 
ter, VIC und SID, zeäenweiss kommentiertes 
ROM-Listing Interruptprogrammierung, BASIC 
intern, original Commodorse-Schaltpläne. Ver- 
obschieden Sie sich von Ihren Freunden: 

628 Seiten Herausforderung warten auf Sie. 
64 Intern 

Hardcover, Seiten, DM 69,— 


Nie mehr LOAD "*",8.1. Einfach draufklicken 
und fertig. Soweit kennen Sie GEOS. Aber was 
kann es noch? Dieses Buch bietet Ihnen eine 
optimale Einführung und zeigt Ihnen viel 
Neues: Wie schreibt man Programme mit 
GEOS-Elgenschaften? Wie Ist das neue GEOS- 
Flie-Format aufgebaut? Was kann man selbst 
noch erweitern? Ganz besonders wichtig: der 
Einzelschriffsimulator, mit dem Sie GEOS Schritt 
für Schritt auf der Spur bleiben können. Natür- 
lich wird auch die Version 1.3 berücksichtigt. 
Das große GEOS-Buch 

Hardcover, 350 Seiten, DM 49,— 


Das große 
BASIC-Buch 


I! 


Wer den Einstieg in den 128er hinter sich hat, 
der sucht weiterführende Informationen: Wie 
funktioniert die Menü-Programmierung, wie 
schreibt man Sortierroutinen oder erstellt 
mehrdimensionale Felder... Mit dem großen 
BASIC-Buch zum Commodore 128 bekommen 
Sie Antworten. Praktische Beispiele helfen, das 
Gelernte zu vertiefen — bis Sie dann in der 
Lage sind, selbst von der Problemanalyse bis 
zum fertigen Programm zu finden. 

Das große BASIC-Buch zum C128 
Hardcover, 454 Seiten, DM 39,— 


EIN DATA BECKER BUCH 
—EBE 


DATA BECKER 


Merowingerstr. 30 - 4000 Düsseldorf - Tel. (0211) 310010 
WWW .HOMESOMPUTERWORLB,.EOM 


Dos ist das auflagenstärkste deutsche Compu- 
terbuch. Warum? Schauen Sie mal rein, dann 
werden Sie verstehen, was Zehntausende von 
64er Fans daran begeistert. Bubblesort in 
Assembler, Stereosynthesizer, Spriteeditor, 
Verbesserungen zum BASIC 2.0, Datazellen- 
generator, Autostart, Datenübertragüng zu 
anderen Rechnern - und das Ist nur ein kleiner 
Ausschnitt. Sparen Sie sich langes Suchen - 
was Sie an Tips & Tricks kennen müssen, gibt's 
in einem Buch. 

64 Tips und Tricks, Band 1 

418 Seiten, DM 49,— 


GEOS kann viel. Aber das ist noch nicht alles. 
Ein Buch zeigt Ihnen die versteckten Möglichkel- 
ten. Was hätten Sie denn gerne? Ein paar 
Pokes, mit denen man GEOS Beine macht? 
Oder deutschen Zeichensatz unter GEOS? Einen 
Systemaufruf, mit dam man GEOS aus jedem 
BASIC-Programm wieder aktivieren kann? Einen 
Profi-Monitor als GEOS Accessory? Oder alle 
Fehlermeldungen und wie mon sie behebt? Ein 
Buch so vielfältig wie GEOS selbst. 

GEOS Tips & Tricks 

Hardcover, 310 Selten, DM 49,— 


EIN DATA BECKER BUCH 
414 


Wissen Sie, wie man die doppelte Rechnerge- 
schwindigkeit mit 64er Modus erreicht? Oder 
wis man einen eigenen Zeichensatz erstellen 
kann? 427 Seiten voll Ideen mit vielen Beisplel- 
Programmen und ausführlichen Erklärungen, 
damit Sie die Routinen nicht nur abtippen, 
sondern auch verstehen können. Dazu 
kommt noch sine ganze Menge all- 
gemeiner Informationen zum 
C128 - schließlich soll nicht 
nur Ihr Rechner Neues 
lernen. 

128 Tips & Tricks 

Hardcover, 
427 Seiten, 
DM 49,— 


Wer seine 1541 nur mit LOAD und Saw 
speist, der hat sicher noch nicht das g 
Floppy-Buch gelesen. Denn schon bei der =& 
tachsten Datenverwalftung gibt es einige 
Kniffe. Und was halten Sie von einen Super- 
Diskmonitor mit Zugriff auf 40 Tracks, einem 
zeilenweise dokumentierten DOS mit Cross- 
Reference, einem Kapitel über Kopierschutz 
oder Themen wie Direktzugriff, Overlaytechnik? 
Und natürlich gibt as hier auch alle Neuigkel- 
ten über die neue 1541 C. So macht man Stan- 
dardwerke mit Zukunft. 

Das große Floppybuch zur 1541 

Hardcover, 520 Seiten, DM 49,— 


Schützen Sie Ihre Programme mit einem opti- 
malen Kopler- und Programmschutz. Ihre 
BASIC-Programme, aber auch Ihre Programme 
In Maschinensprache. Kassetten-, aber auch 
Diskettenprogramme,. Dabel brauchen Sie kein 
Profi sein, denn alles wird ausführlich erklärt: 
Illegal Opcodes, die Nutzung von Track 36 bis 
41, Half-Tracks, Killertracks. Einschrittdecodle- 
rer und und und. Dieses Buch lüftet die 
Geheimnisse wirkungsvoller Koplerschutzver- 
fahren und zeigt Softwarehäusern, wie erfolg- 
reiche Cracker vorgehen. 

Das Antl-Cracker-Buch für 064/0128 

384 Selten, DM 39,— 


wussch 


C128-Freunde können Speicherplatz- 
probleme jetzt bekämpfen! Mittels 
Modul kann das C128-RAM um 512 K 
ausgebaut werden. Die folgenden 
Tips erleichtern die Arbeit mit dem 


Riesenspeicher . 


Seit kurzer Zeit gibt es zum C128 die Spei- 
chererweiterungen 1700 mit 128 K und 
1750 mit 512 K. Diese „RAM Expansion 
Module" werden von einem DMA-Con- 
troler (DMA=Direct Memory Access) 
verwaltet. Er übernimmt die Kommunika- 
tion mit dem C128. Commodore benennt 
ihn REC (RAM Pan Gone) 

Im CPM-Modus d as Anwen- 
dungsgebiet eindeutig als = RAMEIssı 
gegeben. Darüber gibt es im Handbuch 
eine ausführliche Anleitung. Hier werden 
daher nur DMA-Zugriffe im C128-Modus 
besprochen. 

Basic 7.0 stellt zur Kommunikation mit der 
Speichererweiterung drei Befehle zur 
Verfügung. Grundsätzlich ist damit nur 
ein Datenaustausch zwischen der internen 
Bank O0 und den externen Banken möglich: 
STASH — überträgt eine frei wählbare 
Anzahl von Bytes aus Bank 0 des 
internen RAM in eine wählbare 
Bank der externen Speicherer- 
weiterung. 

— ist das Gegenstück zu STASH 
— tauscht eine frei wählbare An- 
zahl Bytes zwischen Bank 0 des 
internen RAM und einer Bank 
der Speichererweiterung. 

Die erforderlichen Parameter sind für alle 
Befehle gleich und müssen in dezimaler 
Notierung oder als Variable eingegeben 
werden: 

STASH 

FETCH — Bytes, Intsa, Expsa, Expb 
SWAP 


FETCH 
SWAP 


Bytes -— Ein ganzzahliger Wert zwi- 
schen 0 und 65535, der die An- 
zahl der zu übertragenden Bytes 
festlegt. 

Intsa — Ein ganzzahliger Wert zwi- 


schen 0 bis 65535, der die Start- 
adresse im internen RAM iest- 
legt, ab der die Bytes übertragen 
werden. 
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08cB8 
2cB8 
8c18 
8c18 
8c28 
2c2B 
2c38 
8c38 
Bc4B 
2c4B 
28c58 
B8c58B 
8c58 
Bc6B 
8c78 


Expsa 


Expb 


62900 


69212 


62022 


60038 
62240 
60050 
60068 
60978 
69080 


600832 


— Ein ganzzahliger Wert zwischen 0 und 
65535, der die Startadresse im externen 
RAM festlegt, ab der die übertragenen 
Bytes abgelegt werden. 

— Gibt die Banknummer im externen RAM 
an, in der die Bytes abgelegt werden. Die 
RAM-Card 1700 hat zwei Banken (0 und |). 
In der RAMCard 1750 stehen acht Banken 
(0-7) zur Verfügung. Jede Bank hat eine 


data 
data 
data 
data 
data 
data 
data 
data 
data 


20,61,0c,29,00,8d,02,dF, 
39,1c,8d,03,df,20,4b,00, 
a2,00,20,50,FF,29,00,8d, 


23,04,84,03,df,2@,4b,0c, @ 
ad,06,d5,09,00,8d,06,d5, d 


a2,01,20,50,ff,a9,08,8d, 
28, FE, ad,®6,d5,29,3F,8d, ı 


data 06,d5,58 ‚as, 22,84, 2B4,df, B2 
data 8d,05,dFf, ‚Be, Q6,df,as, ‚FF, aa 
data 8d,07,df,39,e2, Bd, BB,uf, 3 
data 69,8e, Ze ®c,aa, 6d,73,80, 

data a8,ae,72,0c,39,88 ‚Bd, Se. 
data FF,50,00,00,84,85,86,48, a. 
For a= 3072 to 3184 step ua 
8:5=9:c=8:for b=® to 7: nn 
gosub 59842 nn 
s=-s+thtl-c:crs?255:s5-255 5 5034 
and -255:poka ath,hrl:mest 
b:gosub 69940 nn 
£f$=-"pruesfsumme ok”:iE s<> SB 
h+l then f$="[rvs] nn 
prusefsummenfehler”:f=-f+H1 
gosub 688S8:next a:print ” 2267 
Cdown]”£f”Ffehler”:end ee 
read h$:gosub 69959: h=1* Br 
16:h$=mid$ Ch$,2) 

l=asc (h$+”x ")-4B: if 10 3198 

or 1>22 then 60088 

if 1<18 then return 19044 
l-1-7:iF 1>9 then return Last 
£f$=-"Crvsleingabefehler”:1= 2460 
B:E=-E+1 

print ”zeile” peek (64)* 2726 


2e56+pesk (B3)f$: return 


saven des programms nach starten 
des loaders mit 


poke 43, ®:poke 44, 12 
poke 45,128:poke 46, 12 
save "name”,8B 


Listing 1: Datenaustausch-Programm 
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BIMODUL 


Speicherkapazität von 64 KByte. 
Achtung: — Der FAST-Modus ist nicht erlaubt 
STASH/FETCH/SWAP muß daher immer 
auf SLOW umgeschaltet werden. 
Im Handbuch zum C128 (Ausgabe 1985) 
sind bei allen angeführten Beispielen Para- 
meter vertauscht! 
Die Beispiele im englischen Handbuch zum „RAM 
Expansion Module“ sind richtig. Leider werden dort 


er 
voi 


. 100 ı 
118 rem 
120 rem 25 
130 rem 
140 


ram expansion 1788/1758 
installation testen 
banken loeschen 


180 
180 


1390 
200 
210 
220 
230 
240 


sollen” 


input ” von,bis ”;v,b 

graphic 1,1:3=8192 

For i=v to b:for j=® to 6 

stash a,a,j*a,i 

next next :graphic clr :print ” 

Celr,ctrl gJ”:end 

258°: 

268 rem test ob ramcard installiert 
278 bank 15:a=dec (”df05”) 

288 v=64:poke a,v:if v-peek (a) then 

return 

print "[Cdown,ctrl gJramcard nicht 
installiert! 

308 = 

318 

320 


230 


rem test ob ramcard 128k oder 512k 


338 bank 15: peak C dec (”dF99”)) and 
16 
349 if s=-16 then FS="S1ak”: else fF$- 
P12BkK” 
358 if s=15 then bk=7:else bk=1 
. 368 print ”"[down,ctrl glramcard "fF$” ist EB16 
s installiert = 
3780 return 2 


Listing 2: Installationstest 


nur Beispiele mit dem 40-Zeichen-Textbildschirm ge- 
bracht. Wie die Beispiele auf der Demo-Disk sehr 
beeindruckend zeigen, sind Movies in hochauflösen- 
der Grafik ein sinnvolles Anwendungsgebiet. In ei- 
ner Bank bringt man acht Grafikseiten unter. Die 
Verteilung muß vom Anwender selbst verwaltet wer- 
den. 

Ein Beispiel (mit Hex-Zahlen): 


STASH 8000,8192,DEC(“A000°),1 speichert 8000 
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00/470 


rem uni sr er 


rem ___............ : 


scneir :gosub 27®:gosub 30 == 
ne "C[downJweiche ramcard-banken 
print "geloescht werden (®-”;bk”)”; 


Bytes (= 1 Grafikseite) ab Adresse 8132 (= Start- 
adresse des Grafikbereiches im C128) ab Adresse 
40960 in der externen Bank |. 

Für die 1750-RAM-Card lauten dann die externen 
Startadressen 0,2000,4000,6000,8000,A000,C000 und 
E000. 

Auch Basicprogramme können geswapt werden: 
BANK 0:STASH 58111,7168,0,Expb: BANK 15 

BANK 0:FETCH 58111,7168,0,EXpb: 


muss BANK 15:5YS20303:5Y520354 
E77 BANK 0:SWAP 58111,7168,0,EXpb: 
5 BANK 15:SYS20303:SYS20354 

© Damit wird der komplette Basic-Spei- 


= == = eher transferiert. In der Befehlsfolge 


ist BANK 0 erforderlich, weil anson- 
sten ab $4000 das Basic-ROM gele- 
sen würde. Nach FETCH und SWAP 
Bert sind die SYS-Anweisungen erforder- 


3108 lich, weil dadurch alle für Textanfang 
3172 und Textende erforderlichen Zeiger 
1805 reaktiviert werden — unter der Vor- 
1399 aussetzung, daß vor demSTASH kein 
1638 Grafikbereich aktiv war. 

3933 Mit dieser Methode kann eine RAM- 
1492 Floppy geladen werden. Zur beque- 
meren Handhabung können Funk- 
tionstasten mit den erforderlichen 

1858 Befehlssequenzen belegt werden. 
1976 Der DMA-Zugriff auf Bank | des C128 
ist im Handbuch (offensichtlich ein 
2528 Druckfehler) falsch beschrieben. 

135: Hier die richtige Erklärung: 

In der normalen Konfiguration ist ein 
DMA-Zugriff auf Bank 1 des C128 
2467 nicht möglich, da der REC auf die 
z gleiche Bank wie der VIC zugreift. Im 
3073 RCR (RAM Configuration Register) 
Re der MMU sind Bit 6 und 7 die VIC- 


Bits. In der vorliegenden Version der 
MMLU ist Bit Tohne Bedeutung. Für ei- 
nen DMA-Zugriff auf Bank 1 des C128 
muß also Bit 6 gesetzt werden. Wenn 
auch Bit 7 gesetzt wird schadet es 
nicht. Nach dem DMA-Zugriff muß 
die alte Konfiguration sofort wieder 
hergestellt werden. Geschieht das nicht, so sind nur 
mehr wirre Zeichen am Bildschirm zu sehen. Die er- 
forderliche Befehlsfolge sieht in Basic so aus: 

POKE DEC(“D506"), PEEK(DEC("D506"))OR 192 
BANK 1:STASH64255,1024,0,Expb:BANK15 

POKE DEC("D506"), PEEK(DEC(, D506"JJAND 63 

Für das Zurückholen aus der RAM-Card braucht in 
der Befehlsfolge statt STASH nur FETCH eingesetzt 
werden. 


142 


Juni/87 Um 45 


wissch 


I men rer er eareee 

2 rem 0 

3 Em en ne 
100 scnelr :s=®:for i=3072 to 3138 


d read d:s=s+d:poke i,d:next 

if s<>12488 then begin 

print "eingabefehler!”:end :bend 
print "als binaerfile speichern”- 
3/n” 

158 


150 bsave apber”.ho, p39072 to p31S1 
178 data 32,937,10,169,05141, 2,023 
180 data 169,28, 141,3,223,32,75,1e 
. data 162,0,32,80,255,169,90,141 
data 0,255,32,79,79,76,130,79 
data 32,97,12,169,0,141,2,223 
data 169,4,141,3,223,32, 75,12 
data 173,6,013,3,192,141,6,c13 
D data 162,1,32,80,255,169,0,141 
data 0,255,173,6,213,41,63,141 
data 6,213,556,169,0,141,4,223 
data 141,5,223,142,6,223, 169,255 
data 141,7,223,169,226,141,8,223 
data 
data 
data 


1568,174,114,12,169,9,141,8 
e55,96,0,9,192,133,134 


Genauso wie VIC, VDC und CIA’'s wird der REC 
durch einige Register im /’O-Bereich ($DF00-$DFOA) 
des C128 programmiert. Dadurch kann der Daten- 
austausch zwischen der RAM-Card und dem inter- 
nem RAM, unabhängig von Basic, auch mittels Ma- 
schinensprache gesteuert werden. Im Kapitel 5 des 
Handbuches zur RAM-Carad ist die Belegung der Re- 
gister ausführlich beschrieben. Auf eine Wiederga- 
be wird daher hier verzichtet. Statt dessen wurden 
die beiden Beispiele in ein Maschinenprogramm um- 
gesetzt. Gegenüber den Basic-Versionen bietet es 
den Vorteil, daß das Programm bei einem Reset 
nicht gelöscht wird. Statt des Basic-Bandwurms ge- 
nügen für die Aufrufe der Operationen bequemer 
einzutippende Sys-Anweisungen (das erforderliche 
Format steht im Assembler-Listing ]). 
Bei beiden Beispielen wird eine arge Speicherver- 
schwendung getrieben, weil es selten Basicpro- 
gramme mit einer Länge von über 200 Blocks geben 
wird. Speichersparend ist die folgende Methode: 
l) 1.Programm laden. 
2) Programmlänge errechnen: 
L1= PEEK(4624) + 256 * PEEK(4625)-7169 
3) BANK 0:STASH L1,7168,0,Expb:BANK 15 
4) 2.Programm laden. 
5) L2=PEEK(4624) + 256 x PEEK(4625)-7169 
6) Ist (65535-L1) noch größer als L2 ? Wenn ja, dann: 
BANK 0:STASH 12,7168,L1,Expb:BANK 15 
Dieser Algorithmus wird solange wiederholt, bis die 
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get ı k$:if k$<>”j” then sconclr : 
end 


86,142,114,12,170,189,115,12 


externe Bank beschrieben ist. Dann wird jeweils die 
nächste Bank gefüllt, bis alle Banken voll sind. Nach- 
teil ist, daß man sich die Startadressen in der exter- 
nen Bank für FETCH merken muß — ein SWAP ist 
kaum anzuwenden. Vorteil ist, daß man eine ganze 
Diskettenseite in der RAM-Floppy unterbringt. Es 
wird sicher nicht mehr lange dauern, bis das erste 
Steuerprogramm für eine RAM-Floppy auftaucht. 
Die DMA-Befehle enthalten keine Sicherheitsabfra- 
ge, ob die RAM-Card überhaupt installiert ist. Wie 
Listing 2 zeigt, läßt sich eine solche sehr einfach rea- 
lisieren. Damit es als kleines Dienstprogramm ver- 
wendbar ist, wurde ein Test auf den RAÄM-Card-Typ 
eingebaut. Eine Löschroutine ist ebenfalls integriert. 
Eine kurze Programmbeschreibung: 

In Zeile 270 bis 300 erfolgt der Test, ob eine RAM- 
Card installiert ist. Dazu wird lediglich ein Adreßre- 
gister des REC beschrieben. Wenn sich das Register 
beschreiben läßt, so ist die Speichererweiterung in- 
stalliert. 

In Zeile 330 bis 370 wird das Statusregister des REC 
gelesen und Bit 3 getestet. Beim Modul 1750 ist es ge- 
setzt. 

Gelöscht wird die RAM-Card mit einem Trick: Man 
überspielt einfach leere Grafikseiten in die RAM- 
Card, wodurch die selektierten Banken gelöscht 
werden. 


(Ilse und Rudolf Wolf) EEEEEEEREEREREREEEEEEEE 


= Filmtitel mit €64 


Um meine beiden Hobbys, die 
Computerei und die Videofilme- 
rei, besser miteinander verbinden 
zu können, suche ich ein geeigne- 
tes Programm, mit dem ich aufein- 
fache Weise Filmtitel auf den Bild- 
schirm zaubern kann. Es soll die 
Möglichkeit bieten, Roll-, Lauf-, 
Blink- und einfach stehende Titel 
in verschiedenen Schriftarten, 
-größen und -farben herzustellen. 
Die Übertragung der betreffen- 
den Videosignale auf Videoband 
ist dann kein Problem mehr, wohl 
aber das Einkopieren in fertige 
Szenen, die im Hintergrund wei- 
terhin zu sehen sein sollen. Auch 
hierzu suche ich noch eine Anlei- 
tung zum Selbstbau eines einfa- 
chen Bildmischpultes für zwei Ka- 
näle. Ich bin für jeden Hinweis, 
der zur Lösung meines Problems 
beiträgt, dankbar. 


Klaus Heiden 
Römerstr. 473 
4130 Moers ] 


= Nachtrag 


Ich schreibe Euch, um Euch dar- 
auf aufmerksam zu machen, daß 
das Spiel „Enemy“, Heft 2/87, Sei- 
te 128 bis 132, auch auf dem Plus 4 
läuft. Man muß vor dem Laden fol- 
gende Zeile im Direktmodus ein- 
tippen: 

POKE 1331,246: 

POKE 1332, 127: 

sys 32768 

Die beiden Pokes veranlassen 
den Computer zu glauben, daß 
eine 32K-Version vorliegt, und der 
SYS bewirkt einen Kaltstart. 


Gordon Hirsche 
5370 Kall-Urft 


Positiv und 
angenehm 


Es ist nicht gerade selten, daß 
mich ein Beitrag in Ihrem Compu- 
ter-Magazin positiv und angenehm 
überrascht. Dieses Mal jedoch 
wurden alle bisherigen Rekorde 
übertroffen: Lange Zeit schon ist 
mein Wunschtraum, einmal in der 
Redaktion eines guten Computer- 
Magazins mitarbeiten zu dürfen, 
wobei ich schon seit einiger Zeit 
mit dem Gedanken gespielt habe, 


mich mit meinem Anliegen an Sie 
zu wenden, weil genau Ihr Maga- 
zin mein Bild einer wirklich guten, 
anwenderorientierten Computer- 
Zeitschrift genauestens erfüllt! 
Schon lange Zeit meines Lebens 
sitze ich regelmäßig vor den 
merkwürdigen Kästen mit der 
rechteckigen Scheibe (wie böse 
Zungen aus meinem Freundes- 
kreis behaupten, habe ich schon 
Augen, die in der Form entfernt an 
einen Fernseher erinnern), um 
der Dinge, die da geschehen, 
Herr zu werden — mit mehr oder 
weniger Erfolg. 


örg Z. 
1 Oftersheim 

Okay. Mach einen Termin mit 
Siggi. 


Publie-Domain- 
Vertrieb 


Ich besitze gute Kontakte in die 
USA und bin daher im Besitz vie- 
ler Public Domain-Programme, 
von denen mich bis auf wenige 
Ausnahmen nur die Fred Fish Soft- 
ware Library überzeugt. Ich habe 
aus den ersten rund 35 Fred Fish 
Disks die 30 besten ausgewählt 
und erwarte in den nächsten Ta- 
gen den zweiten Fred Fish-Schub. 
Dann umfaßt die Sammlung 55 
Disks. Ich bin bereit, in meiner 
(leider bemessenen) Freizeit die 
30 besten Fish Disks der ersten 
Edition mit ausführlicher Anlei- 
tung auf geprüfte Disketten zu Ko- 
pieren. Ich berechne zum gegen- 
wärtigen Zeitpunkt für Porto, Ver- 
packung, Strom und Qualitätsdis- 
ketten 5,99 Mark pro Disk, wobei 
ich ein Sortiment von 30 Stück (in 
der absehbaren Zukunft wird das 
Angebot an Fish Disks wie oben 
beschrieben ausgebaut) anbiete, 
(179,70 per V-Scheck komplett!). 
Die Disketten, die alle mit verify 
kopiert werden, sind. selbstver- 
ständlich im Preis enthalten. 
Wenn man die gegenwärtigen 
Preise für gute Disketten betrach- 
tet (denn von schlechten hat ja 
schließlich keiner was) und den 
durch das viele Kopieren nicht un- 
erheblichen Verschleiß und Zeit- 
aufwand, finde ich den genannten 
Preis fair. Ich hoffe, daß die Dis- 


WWW.HOMECSOMPUTERWORLD.CEOM 


Leserbriefe 


kettenpreise in der Zukunft ins 
Rutschen kommen, dann werden 
die Gebühren sofort entspre- 
chend nach unten korrigiert 
habe kein Interesse, Geld zu ver- 
dienen, möchte meine Verluste 
aber auch im Rahmen halten, und 
daher ist es mir nicht möglich, zu- 
geschickte Disketten zu bespie- 
len. Sollte wider Erwarten und 
trotz Verify einmal eine Disk nicht 
funktionieren, so leiste ich umge- 
hend und kostenlos Ersatz. Dem 
Programmpaket liegt für Spiele- 
freaks noch zusätzlich eine NON- 
FISH PUBLIC DOMAIN Disk (ko- 
stenlos, macht also 31 Disks) mit 
zwei gut animierten Arcade-Spie- 
len bei. 


Bernd Schilder 
Laarkamp 5 
4630 Bochum 6 


= Austauschen 


Mal schreibt Siggi, mal schreibt 
der Chefredakteur „Aus der Re- 
daktion". Jetzt meine ich, daß nach 
dem Papstbesuch ruhig mal der 
Heilige Vater das Editorial 
machen sollte. Er ist dem Chefre- 
dakteur sowieso ähnlich: autoritär, 
unbeliebt und jedesmal böse grin- 
send, wenn er was falsch macht. 
Dieter Cornelius 

5 Köln/Ehrenfeld 

Abgelehnt. Nicht aus Loyalität mit 
dem Chefredakteur, sondern weil 
wir dann konsequenterweise 
Siggi durch die Mutter Theresa 
ersetzen müßten. 


g spanisch wie? 


Ich bin auf der Suche nach einem 
Spanisch-Sprachkurs. Welche Fir- 
men und Produkte können emp- 
fohlen werden? Leider fehlt mir 
jegliche Möglichkeit, Angebote 
nach Qualität unterscheiden zu 
können. Grundkenntnisse in Spa- 
nisch sind vorhanden. 

Hans Joachim Gulde 


Am Dossingerweg 26 
7086 Nähresheim 
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Kurs 


Die Anfangsadresse des Programmspeichers ist in 
den Zeropage-Adressen 43 und 44 gespeichert und 
kann mit diesem Befehl ausgelesen werden: print 
peek(43)+ 256 + peek(44) 

Beim C16 ist das Ergebnis immer 4097, gleichgültig, 
ob die hochauflösende Grafik eingeschaltet ist oder 
nicht. Wie in Bild 3 der ersten Folge gezeigt wurde, 
beginnt beim Plus/4 der Programm-Speicher (Basic- 
Anfang) im Grafikmodus bei 16385 und kann nur 
durch den Befehl graphic clr wieder nach 4097 zu- 
rückgesetzt werden. Für beide Computer gilt: 


Damit man dem Rechner bei der Arbeit zuschauen 
kann, wird nun der Programmspeicher in den Bild- 
schirm verlegt (Anfangsadresse 3072, also höheres 
Byte 12). 

Ähnlich wie in den früheren Folgen sind dazu folgen- 
de Schritte erforderlich: 

l. Kleinschreibung einschalten. Das erleichtert die 
Entschlüsselung des Bildschirmcodes (Handbuch 
Seite 213). 

2. Bildschirm verlegen durch: poke44,12: new. Das 
new bewirkt die entsprechende Verlegung des Va- 
riablenspeichers. Die Fehlermeldung ’syntax error’ 
kann unbeachtet bleiben. 

3. Bildschirm löschen. 

4. In die linke obere Ecke des Bildschirms drei 
Klammeraffen setzen. 

5. Ohne Return den Cursor zwei Zeilen nach unten 
führen. 

Die drei Klammeraffen vertreten im Bildschirmcode 
die drei Nullen, aus denen ein leeres Basicpro- 
gramm besteht. Nun ist der Rechner bereit für die 
Eingabe der ersten Programmzeile: 

l rem probe 

Nach Return erscheint in der obersten Zeile eine Zei- 
chenreihe, in der man nur das Wort ’PROBE!' auf An- 
hieb entziffern kann. Daß es in großen Buchstaben 
auf dem Schirm steht, liegt daran, daß Eingaben im 
ASCII-Code abgespeichert werden. Die kleinen 
Buchstaben haben die Codenummern 65 bis 90. Der 
Bildschirmcode interpretiert diese Zahlen als Groß- 
buchstaben. 

Wo ist das 'rem' geblieben? Der Computer hat es als 
Befehlswort erkannt und in ein Token verwandelt, 
eine Zahl zwischen 128 und 255. Alle Token erschei- 
nen deshalb im Bildschirmcode als inverse Zeichen. 
Bild 2 zeigt die Liste aller Befehlswörter des Basic 3.5 
mit den Token-Nummern, das Token für 'rem’ ist die 
Zahl 143 (= 128+ 15), also das inverse kleine ’o', man 
erkennt es links von 'PROBE'. 

Der Aufbau einer Basic-Zeile ist in Bild 2 dargestellt. 
Am Anfang steht eine Null, gefolgt vom Link-Pointer 
oder Verbindungs-Zeiger. Er gibt in der schon be- 
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DEERGJS/INO 
(Ur CIE und 


Nachdem in den ersten Folgen der 
Variablenspeicher durchleuchtet 
wurde, wird der Computer diesmal 
vorführen, wie er ein Programm ver- 
waltet. 


kannten LOW/HIGH-Form an, wo die nächste Zeile 
beginnt. Hier ist das niedere Byte m=13 und das hö- 
here l=12 abgelegt. Der Zeiger deutet also auf die 
Adresse 13+256*12=3085, das heißt auf die zweite 
der drei Nullen (Klammeraffen), die das Programm 
beenden. An dieser Stelle wird nach Eingabe einer 
weiteren Zeile die neue Linkadresse beginnen. 

In den beiden nächsten Bytes (hier eina=1| und ein 
Klammeraffe) ist die Zeilennummer verschlüsselt: 
1+256*0=l. Mit zwei Bytes lassen sich 
255+256*255-65535 Zahlen darstellen. Die höch- 
ste zulässige Zeilennummer ist etwas niedriger, 
63999, wie man leicht nachprüfen kann. Nun sollen 
die neu erworbenen Kenntnisse an einer weiteren 
Programmzeile überprüft werden: 258 stop 

Das Programm wird wieder durch drei Klammeraf- 
fen beendet, und die beiden Zeilen sind durch eine 
Null getrennt. Der neue Verbindungszeiger setzt 


Speicheraufbau des C16 und Plus/4 


Plus/& Tell © 


sich aus r und | zusammen und zeigt wieder auf die 
zweite End-Null. Die beiden Bytes der Zeilennum- 
mer heißen b und a, das heißt die Nummer ist 
2+256%*1=258. Das Befehlswort 'stop' ist durch das 
inverse kleine 'p' ersetzt worden (128+16=144). 
Wenn man das Programm listet und in Zeile | zwi- 
schen 'rem’ und 'test' ein paar Leerstellen einfügt, 
kann man gut beobachten, wie sich im Speicher die 
beiden Link-Adressen ändern. Was geschieht, wenn 
mehrere Befehle in einer Programmzeile stehen? 3 
list: get! new. 

Zunächst fällt auf, daß die neue Zeile 3, die leicht an 
den zwei Doppelpunkten und den drei inversen To- 
ken zu erkennen ist, vor Zeile 258 eingeordnet wor- 
den ist, Bemerkenswert ist auch, daß für die beiden 
zusätzlichen Befehle kein Verwaltungsaufwand in 
Form von Zeilennummern, Verbindungszeigern und 
Trenn-Null benötigt wird. Durch die Zusammenfas- 
sung sind in Zeile 3 zehn Bytes eingespart worden. 
Auch der Programmablauf ist schneller geworden, 
da der Computer beim Suchen einer bestimmten 
Zeile von Linkpointer zu Linkpointer springt. 


TIP #23: Wenn es darauf ankommt, Zeit und Spei- 
cherplatz zu sparen, sollte man möglichst viele Be- 

fehle in eine Zeile pressen. Allerdings leidet da- 
durch die Übersichtlichkeit. 


Die Verwaltung der Zeilen kann man sich anhand 
des folgenden Programms vom Computer erklären 
lassen. Zunächst wird der Bildschirm, und damit das 
alte Programm, gelöscht, und es werden wieder drei 
Klammeraffen in die obere Ecke gesetzt. Ab der drit- 
ten Zeile gibt man ein: 


3 rem3 
2 rem2 
lreml 


Man sieht deutlich, daß der Rechner sich die Mühe 
macht, die Zeilen zu ordnen, obwohl dadurch jedes- 
mal die Link-Adressen geändert werden müssen. 
Nun sollen die Zeilennummern ein wenig manipuliert 
werden, indem man den Cursor mit der HOME-Ta- 
ste (ohne SHIFT!) in die oberste Zeile befördert und 
im ersten Befehl die Nummer 'a' (=1) in 'c’ (=3) än- 
dert. Ohne Return wird der Cursor in die dritte Zeile 
geführt und das Programm gelistet. Nun gibt es plötz- 
lich zwei verschiedene Zeilen mit der Nummer 3 und 
man kann das Programm sogar listen! Wie funktio- 
niert das? Nun, der Rechner hangelt sich beim Listen 
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FN 
166 SPC( 
167 THEN 
168 NOT 
169 STEP 
17024 
2 Br 
2 rn 
EI Sl. 
174 ? 
175 AND 
176 OR 
177 > 
1787 = 
179557 
180 SGN 
181 INT 
182 ABS 
183  USR 
184 FRE 
185 POS 
186 SQOR 
187 RND 
188 LOG 
189 EXP 
190 COS 
191 SIN 


Bild 2: Token der Befehlswörter 


229 DRAW 
230 LOCATE 
231 COLOR 
232 SCNCLR 
233 SCALE 
234 HELP 
235 DO 

236 LOOP 
237 EXIT 
238 DIRECTORY 
239  DSA 
240 DLOAD 
241 HEADER 


244 COPY 

245  RENAME 
246 BACKUP 
247 DELETE 
248 RENUMBER 
249 KEY 

250 MONITOR 
251 USING 
252 UNTIL 


253 WHILE 


>» 
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von einer Link-Ädresse zur nächsten und druckt je- 
weils die beiden folgenden Bytes als Zeilennummer 
aus. Das kann man auch becbacuiin 5 wenn man das 
Inhaltsverzeichnis (neudeutsch Directory) ei iner Dis- 
kette mit DLOAD"$" einlädt (zum Beispiel um es aus- 
zudrucken) und listet. Die Blocklängen werden da- 


bei als Zeilenzahlen angesehen 
Wenn man allerdings versucht, eine einzelne Zeile 
zu listen, zum Beispiel mit list2, dann findet sie der 


Rechner nicht, denn er stellt die Suche nach Zeile 2 
ein, wenn er Zeile 3 gefunden hat. 

Auch durch Verändern der Linkpointer kann man 
eine Menge über die Arbeit des Computers lernen. 
Am besten gibt man die drei REM-Zeilen noch ein- 
mal ein. Die Verbindungszeiger heißen hl, ol und vl. 
Ersetzt man hl durch ol, dann ist beim Listen die zwei- 
te Zeile verschwunden. Ganz aus der Fassung gerät 
der Computer, wenn man den letzten Zeiger, vl, 
durch ol ersetzt. 

Ersetzt man die erste Link-Adresse, hl, durch zwei 
Klammeraffen, dann herrscht beim Listen gähnende 
Leere, das Programm ist für den Rechner gestorben. 
Nach drei Nullen sucht er nicht weiter. Das ist genau 
das, was bei 'new’ geschieht. Das Programm wird 
nicht gelöscht, sondern abgehängt. Deshalb läßt es 
sich wiederbeleben. Zwar enthält das Basic 3.5 kei- 
nen OLD- oder RENEW-Befehl, aber mit folgendem 
Trick kann man ein ea nach 'new’ retten: 


. en sich das ne ch an 
gabe retten (es darf aber inzwischen te Va- 
| definiert worden sein): 5 


Poke(peek(44)s286+ Hl: deldtei 


Der erste Befehl sagt dem Computer: Schau in der 
Speicherzelle 44 nach, welches High-Byte der Basic- 
Anfang hat, multipliziere diese Zahl mit 256 und ad- 
diere l. In die so berechnete Speicherstelle 
schreibe eine |. 

Wie funktioniert nun die Zauberformel in TIP #23? 
Der POKE-Befehl ruft eine Reihe von Betriebssy- 
stemroutinen auf, unter anderem die Linkroutine, die 
nach Löschung einer Zeile die Link-Adressen neu 
berechnet. 

Die durch 'new' verlorengegangene Link-Adresse 
wird so wiedergefunden: Der Rechner schaut in den 
Speicherstellen 43/44 nach, wo sich der Basic-An- 
fang befindet, überliest die nächsten 4 Bytes (auch in 
der Zeilennummer kann sich eine Null befinden) und 
sucht dann nach der ersten Trenn-Null. Ihre um eins 
erhöhte Adresse trägt er hinter der Anfangsnull ein. 
Das kann man auf dem Bildschirm gut beobachten. 
Ausgehend vom Programm mit den drei REM-Zei- 
len, wird 'new' eingegeben. Man sieht, daß die erste 
Link-Adresse durch zwei Klammeraffen ersetzt wird. 
Mit 'list' kann man kontrollieren, ob das Programm 
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verschwunden ist. Nun wird zunächst eingegeben: 
poke 3073,1 (der Basic-Anfang liegt jetzt im Bild- 
schirm, der bei 3072 beginnt). An zweiter Stelle steht 
nun ein 'a’ (=1). Man hätte übrigens auch jede ande- 
re Zahl (außer Null) einpoken können, Ebenso kann 
man im zweiten Befehl jede beliebige Zahl verwen- 
den, zum Beispiel delete 1000. Obwohl es gar keine 
Zeile 1000 gibt, steht jetzt an 2. und 3. Stelle wieder 
die richtige Link-Adresse, hl. 'list' zeigt, daß das Pro- 
gramm vollständig vorhanden ist. 

Bei all diesen Eingaben muß man darauf achten, daß 
man nicht in die untersten Bildschirmzeilen schreibt, 
sonst rollt nach Return die oberste Zeile, die das Pro- 
gramm enthält, aus dem Bildschirm. Was ist zu tun, 
wenn durch eine ungeschickte Eingabe der Rechner 
'aussteigt' und man die 'Zauberformel' nicht einge- 
ben kann? Auch da gibt es einen Trick, der gut ver- 
steckt im Handbuch steht (Seite 61), so daß man ihn 
nie findet, wenn man ihn braucht. 


Nach 'new' und Reset gibt es also noch Rettungs- 
möglichkeiten, aber was geschieht, wenn man eine 
Zeile löscht, indem man die Zeilennummer eingibt 
und die Returntaste drückt? Auch das kann man mit 
unserem Modell-Programmspeicher ausprobieren. 
Eine solche Zeile verschwindet vollständig aus dem 
Speicher. Man kann nur hoffen, daß sie zufällig noch 
auf dem Bildschirm steht und man sie mit Return neu 
eingeben kann. Man hat dabei den Bildschirm als 
Zwischenspeicher benutzt. 

Darauf beruht auch eine sehr einfache MERGE-Me- 
thode, die sich allerdings nur zum Anhängen eines 
sehr kurzen Programms (zum Beispiel Unterpro- 
gramm) an ein Hauptprogramm eignet. 


SBIE #26; MERGE-Routine zum Anhängen kurzer 
‚Programme. EB, 
Sl Im kurzen Pro ra aan il Zeiler nummern so 
dern, daß sie mit Sich« eit über de ndesH: 1pt- 

 programmsliegen. 


Sihnzelen unfasen Ei 
3. Dicht unter der letzte 
> des 


Doch zurück zu den Befehlswörtern und ihren Sym- 
bolen, den Token. Nachdem der Programmspeicher 
wieder in den Bildschirm verlegt worden ist (Schritt l 
bis 5), wird ab der 3. Zeile eingegeben: 

lend for next. 

In der obersten Zeile sind nun drei inverse Zeichen 
zu sehen, denen man mit der Bildschirmcode-Tabel- 
le die Zahlen 128, 129 und 130 zuordnen kann. Es 
handelt sich also um die Token der drei ersten ı Be- 
fehlswörter. Die nächste Eingabe soll sein 
Zremstopon. 

Seltsam, 'STOP' und ON’ stehen im Klartext da, wäh- 
rend anstelle von 'rem’, wie erwartet, das inverse '0' 
aufgetaucht ist. Ursache ist das 'rem’. Nach 'rem' 
vermutet der Rechner keine weiteren Befehle. Das 
gleiche geschieht, wenn man Befehlswörter zwi- 
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2 

1.890 POKE 1177,62: REM* AUF ROM UMSCHALTEN 
40 C=33166: REM* ANFANGSADRESSE DER BEFEHLS-LISTE $818E 
50 PRINT CHR$(147) CHRS(14) 

" 55 REM* BILDSCHIRM LOESCHEN, KLEINSCHREIBEN 

60 FOR I=0 TO 499 
2 A=PEEK (C+1) : PRINTCHRS(A); 


NEXT 
s POKE 1177,63: REM* AUF RAM SCHALTEN (NORMALZUSTAND) 
READY. 


isting 1 


Wenn mal was nicht funktioniert... 
' 


gungen 


Ge commodore 
le > Schneider 


AKÄRL 


Installation 
Wartung 
Reparatur 


Technischer 
Kundendienst 


Im gesamten Bundesgebiet vertreten 
70 Niederlassungen 

Hotline Bereich Nord (040) 2201913 

Hotline Bereich Mitte (0201) 35923 

Hotline Bereich Süd (08165) 74220 
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ankam „hfıhrnımmezaınhan en 


hisabkürzungen haben ci 
prechenden Befehle 
eim Listen immer die ausgescheH Wörter. 


in 


(Bankswitching), so daß man mit DEER « da 
triebssystem auslesen kann. 

poke 1177,62 ROM 

poke 1177,63 RAM (Normalzustand). 


Anfangs- 
Null 


Inhait der 
Basic-Zeile 


Bild 3: Aufbau einer Basic-Zeile 


Sie müssen zgendwe im ROM (read only memory) 
aufbewahrt werden, wo sie beim Ausschalten nicht 
ern 1 Auch < das Betriebssystem des Rech- 
wertspeicher. Die Speicher- 

im H ıch (Seite 228) und Bild 1 
beneinander von ROM und RAM, dem 
ich jer bisher untersucht wur- 


Fortsetzung auf Seite 120 


(multi 
Id Pruckerplattform. die 


.. der richtige Platz für Ihren Bürodrucker 
stabil — funktionsgerecht - preiswert 


JA, ii die multiform Druckerplattform interessiert mich, bitte um ausführliche 
Dokumentation! 


multi 


form 
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Name 


Firma 
Adresse 


multiform Vertrieb GmbH & Co.KG - D-4950 Minden 


Sollingweg 19 - Postfach 2725 - Tel. (0571) 46048 


Diesmal werden verschiedene Mail- 

boxen vorgestellt. Außerdem gibt es 
Datensplitter mit Tips und Tricks für 

Sysops und User. 


Nicht jede Mailbox ist für jeden geeignet. Kompli- 
zierte Benutzeroberflächen machen dem DFU-Ein- 
steiger die Datenjagd schwer. Anhand der folgen- 
den Vorstellungen sollen die verschiedenen in der 
BRD üblichen Mailbox-Programme etwas durch- 
schaubarer gemacht werden. 

Tele-Data-Line in Castrop-Rauxel (0 23 05/8 20 45) 

Die Tele-Data-Line in Castrop-Rauxel (zehn Kilome- 
ter von Dortmund) benutzt das komfortabelste C64- 
Mailbox-Programm in der BRD. Autor des Pro- 
grammes ist Sysop Wolfgang. Seine Box läuft zwar 
erst einige Monate, das Programm wurde jedoch in 
einer der beliebtesten C64-Boxen (Dortmunder MB 1 
mit mehr als 80 000 Anrufen) gündlich getestet, um 
dann in einigen wesentlichen Punkten nochmals 
überarbeitet zu werden, und bietet nun hervorra- 
gende Features. So bekommt der eingetragene User 
zum Beispiel direkt nach dem Einloggen alle seit sei- 
nem letzten Anruf neu geschriebenen Einträge auf 
den Bildschirm, ohne (!!) irgendwelche zusätzlichen 
Eingaben machen zu müssen. Durch die Benutzung 
von SFD-1001-Floppies (mit je 1 MByte Speicherplatz) 
besitzt die Box eine sehr große Kapazität und hat 
auch für neue Anwendungen noch genug Platz. Die 
Bedienung der Box ist sehr einfach gehalten; sie ar- 
beitet Modul-orientiert, die Anwahl der einzelnen 
Untermenüs erfolgt über Zahlenkombinationen. So 
bedeutet 31 zum Beispiel „Allgemeine Mailbox“. 
Hier erscheint ein Untermenü, in dem die gewünsch- 
te Funktion (0—lesen/l—schreiben) abgefragt wird. 
Einfacher geht's jedoch durch Eingabe von 31/0 
oder 31/1; es ist möglich, die Funktion gleich mit an- 
zugeben! Auch die anderen Funktionen sind sehr 
einfach zu behalten: *A für die Anleitung, *E für 
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Ende und CO (wie bei fast allen C64-Mailboxen) zum 
Rufen des Sysops. Ein wichtiger Hinweis: Nicht ein- 
getragene User sollten auf die entsprechende Frage 
unbedingt ein N(ein) eingeben, da das System sonst 
sofort die Verbindung trennt! Obwohl die Box erst 
kurze Zeit besteht, sind schon eine Menge Aktivitä- 
ten zustande gekommen. Es gibt eine Amiga-Arbeits- 
gemeinschaft, die gerne bei Problemen Hilfe leistet. 
Außerdem kann man dem Autor des Moduls MA- 
GIC-FORMEL bei Problemen Fragen stellen, die in- 
nerhalb von zwei Tagen beantwortet werden. Das 
Mailbox-Programm kann beim Sysop bezogen wer- 
den und genießt aufgrund seiner Qualitäten ständig 
zunehmende Verbreitung. 

Wittener-Rosen-Funk in Witten (0 23 02/69 00 11) 
Der WRF benutzt ebenfalls ein im Großraum Dort- 
mund und auch teilweise außerhalb stark verbreite- 
tes Mailbox-Programm. Die Box ist seit Mai '86 on- 
line, das Programm stammt vom Autor dieses Arti- 
kels. Da die Box nur mit 1541-Laufwerken arbeitet, ist 
die Speicherkapazität relativ klein. Durch kompakte 
Datenverwaltung war es dennoch möglich, für eine 
Teleterm-Box Platz zu schaffen, aus der User mit ent- 
sprechenden Terminalprogrammen (Multicom, Tele- 
term und diverse andere) Software beziehen kön- 
nen. Vom Bedienungskomfort läßt sich das gleiche 
sagen wie bei der Tele-Data-Line. Der WRF arbeitet 
seitenorientiert, durch Eingabe von 30 wird bei- 
spielsweise die „Allgemeine Mailbox" angewählt. 
Hier erscheint ein Untermenü: 0—lesen/1—schrei- 
ben/2—Übersicht. Mit der Funktion „UÜbersicht" 
wird erreicht, daß nur die Überschriften der Files 
angezeigt werden. Nach Auswahl anhand der Über- 
schriften können bestimmte Einträge gelesen wer- 
den. Auch hier geht's wieder einfacher; durch Ein- 
gabe von 300, 301 und 302 wird das gleiche erreicht 
wie oben, allerdings ohne umständlich durch Unter- 
menüs zu müssen. Die Anleitung/Helpfunktion kann 
durch Eingabe von ?? angewählt werden, ein Logoff 
wird durch 999 oder end ausgelöst. Den Sysop er- 
reicht man mit CO. Als spezielles File in dieser Box 
gibt es eine Benutzeroberfläche, die völlig unabhän- 
gig von der normalen Oberfläche, nur Funkern zu- 
gänglich..ist. Interessenten dafür können sich beim 
Sysop melden. Das Mailbox-Programm kann eben- 
falls über den Sysop bezogen werden. 
RESCO-Mailbox (08 21/52 40 35) 

Das Resco-Mailbox-Programm wird von gleichnami- 
ger Firma, bekannt durch Modems, vertrieben. Es 
hat aufgrund von Werbung in Zeitschriften eine gro- 
ße Verbreitung. Es ist erhältlich in einer C64- und ei- 
ner C128-Version. Für den User unterscheiden sich 
die beiden Versionen nicht großartig. Die Box arbei- 
tet seitenorientiert — durch Eingabe von G(oto) und 
einer Nummer können die einzelnen Seiten ange- 
wählt werden; ein Inhaltsverzeichnis erhält man 
durch Eingabe von I. Außerdem ist es möglich, sich 
eine Liste der Neueinträge anzeigen zu lassen. Dies 
ist aber ziemlich schlecht gelöst, da die Funktion ex- 
tra angewählt werden muß und nicht wie eigentlich 
mittlerweile schon üblich, direkt nach Eingabe von 


Sysop bei Interesse ein Mini- re einnch 
kann. Diese Funktion ist allerdings nur 
stem Komfort ausgestattet und auch für d den Hobby- 
Bereich nur bedingt geeignet, da die Suchmöglich- 
keiten miserabel sind (System differenziert zwischen 
Groß- und Kleinschrift etc.). Ansonsten ein recht an- 
wenderfreundliches System. 

Märkische Mailbox in Iserlohn (0 23 74/1 34 20) 
Die MMB ist eine sehr alte Box, allerdings fand vor 
kurzem ein Hardwarewechsel von C64 auf IBM PC 
statt. Das Mailbox-Programm COMMSYS wurde von 
den Sysops selbst geschrieben. Es ist größtenteils 
GEONET-kompatibel (GEONET ist eine große kom- 
merzielle Mailbox, die über Datex-P erreichbar ist). 
Da der Rechner über eine 20-MByte-Festplatte ver- 
fügt, ist das System sehr umfangreich, jedoch trotz- 
dem sehr einfach und komfortabel zu bedienen. Die 
Seitenanwahl erfolgt durch Klarschriftbefehle. Wenn 
die Seite „Allgemeines“ gelesen werden soll, wird 
folgende Eingabe gemacht: BRETT ALLGEMEINES, 
oder kurz B AL; danach noch ein L für Lesen und es 
werden alle Einträge ausgegeben, die ins Brett „All- 


+ m ım 


sl Alllilliiiot 


f man n durch Eingabe von 
i des ke -- 

. weınal (I!) „ende" 
sehen wird. Wie schon erwähnt, ist dasSystem 
sehr umfangreich, so sind zum Beispiel Nachrichten 
vom Motorsport, spezielle Seiten für dBase III und 
MS-DOS, eine Rezeptecke und natürlich Seiten für 
alle gängigen Computermodelle zu finden. 


{02} 


Datensplitter 


*** Die Dortmunder Mailbox 1 ist unter einer neuen 
Nummer zu erreichen. Seit Februar meldet sich der 
Carrier unter 02 31/51 18 19. Also nicht mehr die alte 
Nummer (17 04 14) anrufen. Das gleiche gilt für die 
ehemalige Schwerter Mailbox. Diese ist nun schon 
seit über einem Jahr offline und der Sysop hat immer 
noch Anrufe — bitte die Nummer 0 23 04/4 47 70 aus 
allen Listen streichen. *** Die Hagener Mailbox l ist 
zumindest für einige Zeit offline, also die Nummer 
mal mit einem Fragezeichen versehen (0 23 31/ 


40 18 99). *** Sysop werden war noch nie so billig $ 


FINAL CARTRIDGE vo® 


BETRIEBSSYSTEM IM EXPANSIONSPORT FÜR DEN C64/C128*c64-Modus 


Betriebssystem in einer Modulbox benötigt keinen Speicherplatz und steht sofort nach dem Einschalten zur Verfügung. 


FLOPPYTURBO - Diskettenzugriff beim 
Laden 6mal schneller, beim Speichern 6mal 
schneller. 


DATASETTEN-TURBO - 10mal schneller, 
auch bei Datenfiles, Normale Commodo- 
re-Befehle. Kompatibel zu Standard -Turbos. 


ÜBERLEGENES DRUCKER-INTERFAGE 
= Kompatibel zu allen bekannten (grafikfähi- 
gen) Druckern mit paralleler und serieller 
Ansteuerung (Gentronics- oder Commodo- 
re-Interface)! Druckt alle Commodore-Grafik- 
und Steuerzeichen (Listings!). Der TYPE- 
Befehl läßt Ihren Drucker wie eine (Speicher-) 
Schreibmaschine arbeiten 


HARDCOPY-FUNKTION = Druckt Text- und 
Grafikbildschirm auch im Mehrfarbinodus, 
Nutzt die gesamte Druckbreitel!! Auch aus 
Spielen und Zeichen-Programmen wie 
Doodle, Koala Pad etc. Sucht sich automa- 
tisch die richtige Adresse des Bildes 


24KBYTE-EXTRA RAM FÜR BASIC- 
PROGRAMME VERFÜGBAR - Mit zwei 
neuen Befehlen (Mamory Road and Memory 
Write) lassen sich Daten In Blöcken zu je 192 
Byte (Basio-Varlable oder Strings) In 
Maschinensprache-Geschwindigkeit überall 
Inden 84 KByte-RAM desC 84 verschieben 


Hammacherstraße 42 
4300 Essen 1 
Telefon 02 01/22 41 41 


BASIC 4.0 BEFEHLE - zum Beispiel DLOAD, 
DSAVE, DAPPEND, CATALOG etc. 


BASIC TOOLKIT - Mit AUTO, RENUM (inklu- 
sive Sprungadressen), FIND, HELP, OLD, 
DEL, APPEND etc. 


PROGRAMMIERTE FUNKTIONSTASTEN 
-Run, Load, Save, Catalog, Diskettenbefehle, 
List (entfernt jeden Listschutz), Monitor. 


ERWEITERTE TASTATURFUNKTIONEN - 
Erlaubt teilweises Löschen von Zeilen; wartet 
bei Listings; setzt Cursor in die linke untere 
Ecke, POKEs und SYS-Aufrufe in Hexadezi- 
malzahlen 


KOMFORTABLER MASCHINENSPRACHE- 
MONITOR - Lädt PRG an jede gewünschte 
Adresse, Bildschirm-Scroling auf- und 
abwärts, Bankumschaltung ROM/RAM etc. 


RESETTASTER - Reset-Sprung in das 
Monitor-Programm. Reset ohne Programm- 
verlust (OLD). Reset aus jedem geschützten 
Programm. 


EIN-/AUSSCHALTER - Wir hoffen, daß Sie ihn 
nie brauchen 


DM 149,- 


RUN-Angebot 

DM 99,— 
Sie sparen DM 50,- bei 1 Car- 
tridge pro Originalabschnitt. 
Bitte ausschneiden und auf 

x ‚ eine Zahlkartenseite (Mittei- 
z a schneller ala andere lung für Empfänger) kleben und 

Freezer DM 99,- + DM 10,- Versand- | 

MSDESBNALING Ober. Funklionsianter: kosten auf Postgiro Essen 


FREEZER: | 
| 
| 
| 
| 
| 
| 

gar on | 

ne uckanmder Siele des | Kto-Nr. 433025-431 für M. || 
| 
| 
| 
| 
| 
| 
| 
| 


- erlaubt Unterbrachen und Fortsetzen fast 
jedes laufenden Programms und macht 
Komplett-Kopie auf Diskette oder Kas- 
satte 

- erzeugt bei Kopien nur ein File auch bei 
mehrteiligen Programmen 

- verdichtet Programme (automatischer 


- Ganzseitendruck nach Wahl auch revers 
oder andere Farben 
(Kontrast!) Spiele-Trainer 


Programms 
Rajcic überweisen. 


Ausschalten von Sprite-Kollisionen mög- | Name: 
ich! 
Versand nur durch Nachnahme Straße: 
Händleranfragen angenehm R2 
Centronics-Userport- Ort: 


Druckerkabel 
(ca. 100 cm lang) 


DM 39,- 


S<Bito aus: Amschieklnzumm zei 


Händleranfragen angenehm 


Alte Linner Straße 38 
4150 Krefeld 
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Telefon 0 21 51/224 20 


nnllein 


Inh. Milan Rajcic 


ORGANISATION 
UND VERTRIEB 
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wie momentan. Die Steckmodems zum günstigen 
Preis (um 100 Mark) machen es möglich, wobei anzu- 
merken ist, daß Mailboxen, die mit den kleinen Com- 
modore-Rechnern (64/128) betrieben werden, natür- 
lich nur an eine Haustelefonanlage angeschlossen 
werden dürfen, da sowohl Rechner als auch Modem 
keine FTZ-Nummer haben! *** Zwischendurch ein 
kleiner Tip für alle, die sich einen Userport-Adapter 
besorgt haben und nun das serielle Kabel vom Flop- 
pybeschleuniger und das Modem gleichzeitig an- 
schließen: Nie über das Modem mit einem Terminal- 
Programm eine Telefonnummer anwählen! Durch 
die Wählimpulse kann ein IC (6522) in der Floppy rui- 
niert werden!!! Bei Modems und Automodemvorsät- 
zen für Akustikkoppler besteht eine weitere Gefahr: 
Falls in der Telefonleitung Spannungsspitzen auftau- 
chen (zum Beispiel durch Blitzschlag), können der 
Rechner und die anderen angeschlossenen Geräte 
zerstört werden. Deshalb bei Gewitter immer den 
Rechner (und eventuell andere Geräte) vom Strom- 
und Telefonnetz trennen!! *** Das Demo-Logon war 
ein voller Erfolg und brachte mehr Resonanz als er- 
wartet wurde!! Aber: In dieser Zeit wurde in den Bo- 
xen, die mit dem Demo-Logon ausgestattet waren, 
zwar eine Menge geschrieben, was normalerweise 
jedoch nicht der Fall ist. Hier muß ein großes Pro- 
bblem fast aller Mailboxen angesprochen werden! In 
letzter Zeit fehlt es sehr vielen Boxen an User-Mitar- 
beit, es wird nur noch gelesen und so gut wie nichts 
geschrieben. Gleichzeitig beschweren sich viele 
User über mangelnde Aktualität der Boxen. Da der 
Sysop einer Mailbox mit dem Editieren seiner Box 
nichts zu tun hat, sollte wenigstens ein Teil des In- 
halts von den Usern kommen. Ein Vorschlag: Den 
Sysop mal fragen, welche Seiten nicht auf dem 
neuesten Stand sind und selbst an der Box mitwir- 
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ken. Ein User, der an einer 


Box mitarbeitet, wird sicher 
mehr von der DFU haben, als 
die neuerdings gehäuft auftreten- 
den Nur-Leser, die mit ihrem Ver- 
halten dazu beitragen, daß viele 
kleine Boxen aufgeben und so eine 
wichtige Grundlage der unabhängi- 
gen Datennetze verloren geht. *** 
Nachdem die Deutsche Bundespost 
plant, einheitlich für den Datex-P-Zugang 
einen 50-Sekunden-Takt einzuführen, dürf- 
te einigen großen kommerziellen Datex-P- 
Mailboxen die Lebensgrundlage entzogen 
werden. Viele User können es sich nicht mehr 
leisten, Datex-P- zu benutzen, da ein Großteil im 
Nahbereich eines PADs (so heißen die Datex-P-Zugän- 
ge) wohnt und vorher einen 8- oder 12-Minuten-Takt zu 
zahlen hatte. Dies kommt einer 10- bis 20fachen 
Preissteigerung gleich. *** Im Ruhrpott erscheint 
seit einiger Zeit der MIRROR, eine unabhängige Pro- 
duktion von diversen Freaks, die zwar viele Tips ge- 
ben, aber auch unterhalten wollen. Die Ausgaben 
sind in diversen Ruhrgebiets-Mailboxen verfügbar; 
den ersten Ausgaben nach könnte der MIRROR eine 
hoffnungsvolle Alternative zur bayerischen Hacker- 
post und der Datenschleuder werden. Bei Interesse, 
bitte an den Autor wenden! *** Da momentan in den 
Boxen häufig versucht wird, mit Hackprogrammen 
wie DIANE und HANS die Paßwörter von Usern zu 
scannen, sollte in jeder Box ein anderes Paßwort ge- 
speichert werden (eigentlich selbstverständlich) und 
es sollten nicht so Allerweltspaßwörter wie der 
Name der Oma/Mutter/Frau/Freundin oder der 
Rechnername benutzt werden. Buchstaben/Zahlen- 
kombinationen sind hingegen nur mit großem Auf- 
wand zu knacken. 
*** In der Mailboxliste der letzten RUN-Ausgabe 
wurde die Münchener „Globetrotter Mailbox" ver- 
gessen. Sie ist unter der Nummer 089/83 12 88 (7N], 
24h online) erreichbar. 
So, das war's. Für Fragen und Anregungen ist immer 
ein offenes Ohr vorhanden. Also im Falle eines Fal- 
les Nachricht an den Autor via Post (an obengenann- 
te Adresse) oder via DFÜ in die Mailbox (Nummer 
oben). Ein Einloggen ist weiterhin unter dem Demo- 
logon möglich mit Usernamen RUN und Paßwort 
COMMODORE! 
Gut Hack und Ciao bis zum nächsten Mal. . , Sysop 
Mario. 
(Mario Teetzen) 


Wer eine neue Box aufgemacht hat, oder 
wenn sonst etwas Interessantes anliegt, 
bitte direkt beim Autor melden: Mario 
8, 4600 Dort- 


Teetzen, Callenbergweg 
mund 18, oder via DFÜ: CBC-MB 02 31/ 
39 38 77. 


Wenn die Raumfahrttechnologie ebenso rasant 
fortgeschritten wäre wie die Computertechnologie, 
dann könnte dies 


heute der 
Blick aus 


Nie zuvor in der Geschichte der Menschheit sind 
Anstrengungen auf technologischem Gebiet so rapide 
vorangetrieben worden, wie in der Computer-Industrie 
der letzten 40 Jahre. Um mit derartigen Entwicklungen 
Schritt zu halten, bedarf es aktueller und zuverlässiger 
Informationen. 


Und da genau setzen wir an. Wir, die CW Communica- 
tions Inc., weltweit größter Herausgeber von Computer- 
Fachzeitschriften. Mehr als 12 Millionen Menschen auf 
der ganzen Welt verlassen sich auf unsere Informationen. 


Wenn Sie Ihre Produkte oder Dienstleistungen weltweit 
oder national vermarkten, dann können wir helfen. 


Wir helfen Ihnen, die EDY-Verantwortlichen von Mit- 
tel- und Großbetrieben zu erreichen. Wir haben insgesamt 
27 Publikationen für diese Zielgruppen in Argentinien, 
Asien, Australien, Brasilien, Bundesrepublik Deutsch- 
land, Chile, Dänemark, Finnland, Frankreich, Groß- 
britannien, Indien, Israel, Italien, Japan, Süd-Korea, 
Mexiko, Niederlande, Norwegen, Österreich, Saudi 
Arabien, Spanien, Schweden, Schweiz, Ungarn, U.S.A., 
Volksrepublik China, Venezuela. 


Wir helfen Ihnen, Kontakt zu knüpfen zu Wiederver- 
käufern, also System-Häuser, Software Häuser, VAR’s, 
Distributoren, Händler und andere, die Ihre Computer- 
Produkte weiterverkaufen. Wir haben Publikationen die 
dieses Marktsegment in der Bundesrepublik Deutschland, 
Frankreich und U,S.A. erreichen, 


Wir helfen Ihnen, die Profis im Bereich Communica- 
tions zu erreichen, die für Daten-, Sprach und Video- 


Communication verantwortlich und in Unternehmen aller 
Größenklassen vertreten sind, mit unseren Publikationen 
in Asien, Australien und U.S.A. 


Und wir helfen Ihnen, die PC-Anwender anzuspre- 
chen, entweder über unsere allgemeinen Microcomputer- 
Zeitschriften, oder über unsere produktspezifischen 
Magazine. Wir decken diese Zielgruppe in 19 Ländern ab: 
Argentinien, Australien, Brasilien, Bundesrepublik 
Deutschland, Chile, Dänemark, Finnland, Frankreich, 
Griechenland, Großbritannien, Israel, Italien, Nieder- 
lande, Norwegen, Spanien, Schweden, Volksrepublik 
China und U.S.A. 


Entdecken Sie, wie einfach es ist, Ihre Zielgruppe in 
diesen Märkten zu erreichen. Wenn Sie Computer und 
verwandte Produkte sowie Dienstleistungen anbieten, 
können Sie von unserem Anzeigen-Service profitieren, 
der Sie direkt zu Ihren Kunden bringt. Rufen Sie Frau 
Kaiser unter (089) 3 60 86-0 an, um mehr darüber zu 
erfahren. Oder schreiben Sie an nachfolgende Adresse: 


&> PUBLIKATIONEN 


CW-Publikationen GmbH 

Brigitte Kaiser 

Postfach 40 04 29 

Rheinstr, 28, 8000 München 40 

Tel.: (089) 36 086-0, Telex: 5 215 350 


Datenbanken EEE 


Such-und Systemstrukturen in Online- 
Datenbanken sind für viele Neulinge 
ein Buch mit sieben Siegeln. Einen 
Wegweiser durch den Struktur- 
dschungel, mit Tips und Tricks, hat 
Datenbankspezialist Reiner Uhl 
zusammengestellt. Endlich wird die 
Datenbank-Recherche zum 
Kinderspiel. 


In RUN 2/87 wurde beschrieben, welche Themen- 
Palette, welches inhaltliche Spektrum also in Online- 
Datenbanken verfügbar ist. Fazit: Da ist fast alles 
drin, das zweckorientierte Wissen dieser Welt! Zwei 
konkrete Wege, um vom heimischen Terminal an die 
Thesauri heranzukommen, wurden in RUN 3 und 4/ 
87 beleuchtet: Btx und (kommerzielle) Mailbox. Mit 
der Mailbox-Connection verfahrensmäßig ver- 
gleichbar ist die nach wie vor häufigste, die dritte Zu- 
gangsvariante: Host On Line — so auch der Titel ei- 
nes Buches zum Thema. 

Nur nützt das ganze gigantische Know-What-Poten- 
tial natürlich nichts, wenn der Neugierige am Netz 
nicht rankomı ine Zielinformation! Vor vollen 
Töpfen zu v n ibt's nicht nur in der 
Fiktion! Oft, besonders bei Anfänger, ist es auch 
Retrieval-Realität, d ohne si 

perfekte Pe chngı der Host-eigenen Suchspra- 
che geht, Menüführungen mal außen vor, rein 
nichts! Genaugenommen ist es eine zwar notwendi- 
ge, beileibe aber nicht hinreichende Bedingung: Ein 
gewisses Maß an prozeduralem Denkvermögen, an 
strategischer Chuzpe und auch an intellektueller 
Raffinesse gehört genauso dazu! 

Vom intellektuellen Objekt der Begierde muß der 
Onliner zudem einige Grundkenntnisse besitzen. 
Denn es ist — auch bei Volltext-Datenbanken — nicht 
nur der reine Text, der da thesauriert und später 
dann durch Eingabe eines Schlagworts wieder her- 
ausgefischt werden kann. (Das hätte nicht nur auf 
der User-Seite ein heilloses Tohuwabohu zur Folge!) 
Dokumente, also potentielle DB-Files, müssen vor 
dem Abspeichern erst einmal formal beschrieben 
und inhaltlich erschlossen, das heißt aufbereitet wer- 
den. Bei Referenzdatenbanken, und von denen ist 
hier vornehmlich die Rede, kommt noch eine Ver- 
dichtungsphase hinzu: Vom Originaltext wird ja nur 
— stark verkürzt — der Inhalt abstrahiert. Formal 
gliedert sich eine Dokumentationseinheit — analog 
den Karteikarten der Bibliotheken — in Felder mit 
zweistelligen Codes, denen Angaben wie „Autor“, 
„Titel" oder „Firma“ zugewiesen werden. (Für 
Fremdwort-Freaks: Logische Segmentierung ist das 
Stichwort.) Erheblich größeren Grips-Aufwand erfor- 
dert dagegen die inhaltliche Beschreibung, und da- 
bei vor allem das Kurzreferat (Abstract), das nahelie- 
genderweise in Normalsprache formuliert wird. Für 
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drei der Felder (Fachordnungsnotationen, Deskrip- 
toren, Freie Begriffe — so beispielsweise beim Aus- 
wertebogen von fiz technik) werden dagegen Doku- 
mentationssprachen verwendet. Dazu gehört einmal 
der Thesaurus, ein einheitlich festgelegter, 
systematisierter sowie vollständiger Wortschatz 
(„controlled terms"), der Wort-Varianten enthält, Ho- 
monyme auseinanderdividiert, Synonyme zusam- 
menführt sowie „Familien“ mit Ober-, Unter- und ver- 
wandten Begriffen kreiert. Reicht das aus sogenann- 
ten Deskriptoren bestehende Vokabular-Volumen 
des Thesaurus nicht aus, können auch einige freie 
Begriffe verwendet werden. 

Der thematischen Zuordnung des ganzen Doku- 
ments dient dagegen die zweite Dokumentations- 
sprache, die Klassifikation. Darunter ist ein hierar- 
chisch aufgebautes, differenziertes Begriffssystem 
zu verstehen, wobei jedem Terminus ein Code zuge- 
ordnet wird. Sortieren ist die Aufgabe der Klassifika- 
ton, Sele ktieren die des Thesaunus, ein Unterschied, 
der sich auch gravierend auf die Größenordnungen 
auswirkt: 600 Klassen vs. 10000 Deskriptoren (fiz 
technik). 

Somit ergeben sich aus dem Gesagten die folgen- 
den, für das Retrieval relevanten Aspekte einer Do- 
kumentationseinheit: 


e Felder/Codes, 

© Deskriptoren, 

© Freie Begriffe, 

e Klassifikationscodes sowie 
e „Normalsprache". 


Hinzu kommen muß natürlich noch die Kenntnis der 
jeweiligen Suchsprache. STAIRS zum Beispiel, unter 
anderem die Sprache des GENIOS-Rechners, um- 
faßt 18 Befehle — und die wollen alle beherrscht 
sein! Als Handwerkszeug stehen darüber hinaus in 
allen Sprachen, wie auch etwa in dBASE III, die Bool- 
'schen Operatoren (ODER, UND, NICHT) zur Verfü- 
gung, mit deren Hilfe die Suchbegriffe verknüpft 
werden (müssen). Eine nicht weniger wichtige Rolle 
spielen die Kontext-Operatoren (NEBEN, MIT, 
GLEICH), die den textlichen Zusammenhang (unmit- 
telbare Nachbarschaft, gleicher Satz/Abschnitt) 


> 
N\ 


DES en 


(LIIJLLY 


il. ECEM-Datenbanken 


1.1 Bertelsmann 

(alphabetisch geordnet) 

A400 Abstrax 400 

AAED Academic American Encyclopedia Datz- 
base 

AARP Ageline 

ABLE ABLEDATA 

ADMT PTS/Aerospace/Deience 
Markets and Technology 

AHCI Arts & Humanities SEARCH 

APIP _Associations' Publications in Prınt 

AWPE Abstracts of Working Papers n Economics 

BANK American Banker 

BBIP Books in Print 

. BEBA  Bilingual Education Bibliographie Absiracıs 

BIOB  BIOSIS Backfile 

BIOL  BIOSIS Preview 

BIOZ _BIOSIS Previews and Backfile 

BIZZ Trade and Industry 

BNEW American Banker News Service 

BOOK BOOKSINFO 

BSOF Business Software Database 

CABA CAB Abstracts 

CAIN AGRICOLA 

CCML Comprehensive Core Medical Library 

CDIF Consumer Drug Information Database 

CHEB CASEARCH Backiile 

CHEM CASEARCH 

CHID  Combined Health Information Database 

CIRR Corporate and Industry Research Reports 
Online Index 

COMP COMPENDEX 

CRFW Catalyst Resource on the Work Force and 
Women Database 

CULP California Union List of Periodicals 

DALY Newsearch 

DGRF  ACS Directory of Graduate Research 

DIFT Drug Information Fulltext 

DIOG Diogenes 

DISS Dissertation Abstracts Online 

DRSC DRUGINFO 
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DRUGINFO/Alcohol Use and Abuse 
Disclosure/History Database 

Disclosure Online Database 

Verband der Vereine Creditreform 
Wer liefert was? 

Exceptional Child Education Resources 
EMBASE 

ERIC 

Educational Testing Service Test Collection 
FILE 

Index to Frost & Sullivan Market Research 
Reports 

Index to US Government Periodicals 
GPO Monthly Catalog 

Industry Data Sources 

Health Audio-Visual Online Catalog 
Alcohol Use and Abuse 

Harvard Business Review Database 
Health Planning and Administration 
Healthlawyer 

HUD User Database 

HAZARDLINE 

Integrated Circuit Parameter Retrieval 
Database 

ABI/INFORM 

INSPEC Backfile 

INSPEC 

International Pharmaceutical Abstracts 
IRCS Medical Science Database 
Interagency Rehabilitation Research Infor- 
mation System 

Industry Standards and Military Specifica- 
tions 

Knowledge Industry Publications Database 
Kirk-Othmer Encyclopedia of Chemical 
Technology 

Legal Resource Index 

Language and Language Behaviour 
Abstracts 

Magazine Index 

PTS/Marketing & Advertising Reference 
Service 

MathSci 

MEDLINE (1981 bis heute) 

MEDLINE Merged 

Guide to Microforms in Print 
Management Contents 

Military and Federal Specifications and 
Standards 

Mental Measurements Yearbook 

Merck Index 

MEDLINE Backfile (1966—1970) 
MEDLINE Backtfile (1971—1975) 
MEDLINE Backfile (1976—1980) 
Magazine ASAP II 

Munzinger Länderarchiv 

American Men und Women of Science 
Nursing & Allied Health (CINAHL) 
Family Resources 

National Institute of Mental Health 
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Datenbanken ge ee 


chreiben, was — logo — auf 
Reduktion des Outputs hin- 


ıe Daten relevant sind 
schließlich die aus der S Sch ıulmathematik bekannten 


Mit dem obige Be em dem Befehlsvor- 
rat sowie dem operativen Instrumentarium im Kopf 
lassen sich — relativ simple Fragestellungen voraus- 
gesetzt — 
rende) Feinde ölge erzielen. Dabei ist es be- 
sonders hilfreich, das beschriebene Dokumenta- 
tionsverfahren zu kennen. Denn daraus resultieren 
unmittelbar verschiedene Verfahrensalternativen 


NEDS National Environmental Data Referral 
System 

National Newspaper Index 

REHABDATA 

National Technical Information Service 

OCLC EASI Reference 

Ontario Education Resources Information 


NO002Z 
‚NRIC 
NTIS 
OCLC 
ONED 


OWNR Disclosure/Spectrum Ownership Database 

PAIS PAIS International (Public Affairs Informa- 
tion Service) 

PATO PATOS 

PATS PATDATA 

PDOC Physicians Data Query: Cancer Information 
File 

PDOD  Physicians Data Query: Directory File 

PDQP  Physicians Data Query: Protocol File 

PETE National College Databank 

PNPA PTS/New Product Announcements 

POLL _ Pollution Abstracts 

PRBN PTS/Regional Business News 

PREV Medical and Psychological Previews 

PSYEI 
PsycIINFO 

PTSA Predicasts Annual Reports Abstracts 

PTSB PTS PROMT and PTS/F&S Indexes Conca- 
tenated Backfile 

PTSI PTS/F&S Indexes (1980 bis heute) 

PTSL _PTS/PROMPT — F&S Indexes Concaten- 
ated Current File 

PTSP _PTS/PROMPT (1980 bis heute) 

RATE Investors Rateline 

RBOT Robotics Information 

RELI Religion Index 

RICE Resources in Computer Education 

RIVE Resources in Vocational Education 

SCPR Semiconductor Parameter Retrieval Data- 

base 

SFEDB Sport Database 

SOCA Sociological Abstracts 

SOFT Online Microcomputer Software Guide and 

' Directory 
SPIE School Practices Information File 
SPDA Social Planning/Policy and Developmental 


Abstracts 
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des Retrievals, die sich freilich im Optimalfall als völ- 
lig komplementär erweisen. So wird sich nahezu je- 
der Einsteiger zunächst einmal der Normalsprache 
bedienen, klar, entspricht dies doch dem natürli- 
chen Frageverhalten. Vorteil dieses — Freitextsuche 
genannten — Verfahrens: Irgendwas findet man fast 
immer, Anhaltspunkte nämlich. Indes, auch Profis 
benutzen manchmal bewußt diesen Weg, etwa wenn 
der Topic ganz aktuell oder zu breit beziehungswei- 
se zu eng für die verfügbaren Thesaurus-Terms ist. 
Die Nachteile sind fatale Folge der fast immer sehr 
individuellen Formulierungsfähigkeit: Jeder hat nun- 
mal seine eigene Wortwahl, und der Journalist, der 
den Artikel verfaßt hat, den ein Retrievaler dringend 
sucht, sicher (auch) andere Begriffe für den gleichen 


SSCB Social SCISEARCH Backfile 

SSCI Social SCISEARCH 

SSCZ Social SCISEARCH Current and Backfile 
STDS Industry and International Standards 

SUPE Superindex 

SWAP Social Work Abstracts 

TECC Texas Education Computer Cooperative 
TERM RM 

TSAP Trade and Industry ASAP III 

ULRI _Ulrich's International Periodicals Directory 
UMAC UMI Article Clearinghouse 

VECM Vocational Education Curriculum Materials 
VEND IHS Vendor Information Database 

VSIN  Voluntary Standards Information Network 
WFLD Work Family Life Database 


WORID Meckler's Word on Tape 


1.2 GENIOS 


GENIUS OPERATOR 

M+A MESSEKALENDER 
TEXTIL-WIRTSCHAFT 
ABSATZWIRTSCHAFT 

DER BETRIEB 
BURDA-MARKETINGINFOSYSTEM MADIS 
ZVEI 

IBD 


1.31.P.SHARP 

Wirtschaftsdatenbanken zu folgenden Themenkom- 
plexen: 

GLOBAL INFORMATION 

UNITED STATES 

CANADA 

UNITED KINGDOM AND EUROPE 

AUSTRALIA 


Sachverhalt. Da reden dann zwei gewissermaßen 
aneinander vorbei — und der Onliner fahndet folg- 
lich vergeblich. Defizitärer Output in einem Fall, re- 
dundanter Schrott im anderen — beides Resultat der 
nicht exakt definierten Begriffe der natürlichen Spra- 
che. 


Verbindliche Vokabeln 
für Deskriptoren 
Diesem Nachteil abzuhelfen, ist der Zweck der De- 


skriptoren. Denn mit Hilfe dieser exakten, allge- 
meinverbindlichen Vokabeln läßt sich wesentlich 


2. Datenbanken 

Deutsche Mailbox 

2.1 Wirtschafts- und Nachrichten-Datenbanken 
AP-FINAN Wirtschaftsinformationen 
AP-NEWS All. Nachrichten 

BUSI Kooperationen 

CWN US-Kurse 

EFH HUTTONLINE 
EFH-EMET Edelmetallkurse 
EFH-FLAS Dow Jones 

EFH-LMET Mestallkurse 

EFH-MOOD Firmenauskunft 

EFH-USD Dollar-Kurs 

BLISS BWL-Literatur 

MANEX Management-Experten 
SEMIKON Seminare & Konferenzen 
HOPE Verzeichnis der Unternehmen 
QUOTES US-Aktien-Kurse 
REGISTER Bundesanzeiger-Einträge 
REGIST-2 Konkursfälle 

TED EG-Ausschreibungen 

UPI Allg. Nachrichten 

UPI-B Wirtschaftsmeldungen 
WPOST Washington Post — online 
2.2 Juristische Datenbanken 

ASYLDOC Asylrecht 

CELEX EG-Recht 

JURIS BRD-Recht 

VLON Verwaltungslexikon 

2.3 Technische Datenbanken 

EK-AMPRO Einkaufsführer E-Technik 
EK-BDI Einkaufsführer BDI 
EK-MRA Einkaufsführer Meßtechnik 
EK-VDMA Einkaufsführer Maschinen 
PATDPA Patentdatenbank 

PATOS Offenlegungsschriften 
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zielgenauer und selektiver recherchieren. Voraus- 
setzung freilich: Ein Blick in den Thesaurus! Was den 
Onliner jedoch nicht hindern sollte, sıch auch mit der 
Klassifikation vertraut zu machen, die die Menge 
möglicher Zielinfomationen quantitativ und thema- 


wähnt bleiben sollte ein weiterer Vorteil der Kl 
kation: Sie ist zwingende Voraussetzung für die 
nannten Referatedienste, periodisch erscheinende 


gen einzelner Themenbereiche. 

Eine weitere Ergänzung des Outputs, identisch mit 
einer Verfeinerung der Suchstrategie, läßt sich 
schließlich durch die Codes der Felder, die soge- 
nannten field labels erzielen. Wird ein Label einem 


2.4 Medizinische Datenbanken 


ABDA Arzneimittelmarkt 

HECLINET Krankenhauswesen 

MEDLARS Fachliteratur 

RTECS Toxisches 

2.5 Umweltschutz-Datenbanken 

ENDOC . EG-Okologie 

ENREP EG-Forschung 

2.6 Bibliografische Datenbanken 

DIANE EG-DB-Verzeichnis 

DUNIS UN-Informationsauellen 

EABS EG-Forschung 

ENQUIRY EG-Hosts & Post 

GKS Kongreßschriften 

NZN Niedersächsisches 

ZBSB Zeitschriftenkatalog der Bayer. 
Staatsbibliothek 

ZDB Selbiges dt. Bibliotheken 


2.7 Reiseinformationen 


CFA Deutsche Städte 
COAD Touristikfirmen 
DB-ELMA Intereity-Züge 

HIZA Intern. Reiseaustausch 
OAG Official Airline Guide 
TIFA Touristik-Themen 


2.8 Sonstige Datenbanken 


CCLTRAIN Übungsdatenbank 
EURODIC EG-Terminologie 
HOSTESS Britische Hosts 

IVAG Dt.-ausl. Gesellschaften 
IVIZ Intern. Institutionen 
SEKO Seminare & Konferenzen 
TELEINFO TELENET-Connection 
TYMINFO TYMNET-Teilnehmer 
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Wer seinen Personal Computer 
professionell nutzen will, sollte 
die Leistung des Rechners nicht 
blindlings vergeuden: Integra- 
tion statt Insellösung! Und so 
wird’s gemacht: 


rungskräfte 
ist ein Leitfaden 
zum wirtschatftli- 
chen Einsatz von 
Mikros in Produk- 
ten und Verfahren. 


Bestell-Nr.: CW M1$-2, Preis: DM 111, - 


EDV-Wissen 
für Änwen- 
der ist der 


lernt man die Anforderungen an die 
EDV zu formulieren. 


Feikı pr 3 


Bestell-Nr.: CW 56-7, Preis: DM 88,— 


= 


Bertelsmann: 77 
Modell: Auch 

wer für Mikros 
oder PC Program- 
me schreibt, braucht die Disziplin des 
Software- Engineers. 


Bestell-Nr.: CW B09-5, Preis: DM 118, - 


Ich bestelle ___ Ex. Mikro-Elektronik für Führungskräfte 
—— Ex. EDV-Wissen für Anwender 
—— Ex. Software-Engineering in der Praxis 
Lieferanschrift (zugleich Rechnungsanschrift*) 


Name Vorname 

Sn S * 

Ser > 

PZ OOn | Ünesch 


*Bestellungen aus ade Ausland werden nur gegen 
Vorauskasse erledigt 


CW-Edition, Rheinstraße 28, 8000 München 40 
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Suchbegriff zugeordnet, reduziert sich das Retrieval 
auf die solchermaßen qualifizierten Felder der Do- 
kumentationseinheiten. Im Rahmen der sogenannten 
Formatausgabe können verschiedene Feldkombina- 
tionen auch mit einem Befehl angesprochen werden. 
Was hier in Ansätzen bereits erkennbar wird, ist 
eine mehr formale Seite der Suche in Datenbanken. 
Da wird eingegrenzt und ausgegrenzt, eliminiert und 
limitiert, eingeengt und ausgeweitet — auf jeden Fall 
ein pulsierender Prozeß! Ob dahinter (immer) ein 
kluger Kopf steckt, läßt sich an dessen Suchstrategie 
ablesen. Mehr zu diesem anspruchsvollen, an Bei- 
spielen illustrierten Thema — einige klassische Irr- 
wege des Retrievals inclusive — in Teil II. 


(Reiner Uhl) 


3. Datenbanken 
€0M.BOX Gilde 


3,1 Datasolve 
3.1.1 WORLD REPORTER 
3.1.2 MAGIC 
HENLEY: LEISURE FUTURES 
HENLEY: PLANNING CONSUMER MARKETS 
MEAI QUARTERLY DIGEST 
MINTEL MARKET INTELLIGENCE 
MINTEL LEISURE INTELLIGENCE 
MINTEL PERSONAL FINANCE 
MINTEL RETAIL INTELLIGENCE 
CAMPAIGN 
MARKETING 
PR WEEK 
BRAD 

MARKETING SURVEYS INDEX 


3.1.3 WORLD EXPORTER 

EUROMONEY TREASURY REPORT 
EUROMONEY FINANCING GUIDES & EURO- 
MONEY 

TRADE FINANCE REPORT 

INTERNATIONAL RISK DATA 

SALES LEADS INTERNATIONAL 

METRA NATIONAL DEVELOPMENT PLANS 
PLANS AND PROJECTS MONITOR 


WORLD BANK IBOS 

TENDERS ELECTRONIC DAILY 

3,2 Sonstige 

ABR:echt Berliner Besatzungsrecht 
Ber.lin Journalistische Aktualitäten 
CIS.Bank Leiterplatten — Who-is-who 
CIS.News Leiterplatten-News 

DIS. Datasolve-Gateway 
DDR.News Dramatisches von „drüben“ 
Eco.rope Infos vom EG-Lach-Parlament 
Insoft. Diskussionsforum 

Oil.world über den Gaumen-Schmierstoff 
TVA. News von den Profi-Freaks 


RIUN)-othekii 


Weil immer noch Anfragen von RUN Lesern bei uns eingehen, die wissen wollen, ob und welche 
Disketten zu früheren RUN Heften zu bekommen sind, geben wir die Bestell Nr. und den Preis 
für alle, die es noch nicht wissen, bekannt. Alles klar? 


Liste der lieferbaren RUN-o-thek Disketten zu den Heften: 


Monat Bestell Nr.: Preis DM 
Januar 1985 501 24.80 
Februar 1985 502 24.80 
März 1985 503 24.80 
April 1985 504 24.80 
Mai 1985 505 24.80 
Juni 1985 506 24.80 
Juli 1985 507 24.80 
August 1985 508 24.80 
September 1985 509 24.80 
Oktober 1985 510 24.80 
November 1985 511 24.80 
Dezember 1985 512 24.80 
Januar 1986 601 24.80 
Februar 1986 602 24.80 
März 1986 603 24.80 
April 1986 604 24.80 
Mai 1986 605 24.80 
Juni 1986 606 24.80 
Juli 1986 607 24.80 
August 1986 608 24.80 
September 1986 609 24.80 
Oktober 1986 610 24.80 
November 1986 611 24.80 
Dezember 1986 612 24.80 


RUN Sonderheft I 1985 32.90 (zwei Disketten) Best.-Nr. 513 

RUN Sonderheft II (Siegerprogramme) 32.90 (zwei Disketten) Best.-Nr. 613 

RUN Sonderheft Ill Apple’s 42.80 (zwei Disketten) Best.-Nr. Al 

RUN Sonderheft 1/87 (Tips + Tricks Programme 37.80 [zwei Disketten]) Best.-Nr. 713 

im RUN-o-thek BASAR gibt es wieder einen ganzen Jahrgang RUN-o-thek Disketten in der 
Kassette verpackt. 


Disketten 1 bis 12 1985 Best.Nr.515 Preis 234.90 DM 
Disketten 1 bis 12 1986 Best.Nr.616 Preis 234.90 DM 

In allen Preisen sind Verpackung und Porto enthalten! Bei Nachnahmebestellungen zuzüglich Nachnahmegebühr. > 
BESTELLSCHEIN 

Bestellschein bitte ausfüllen und ggf. mit unterschriebenem Verrechnungs- NamelVorname 


scheck in einem ausreichend frankierten Umschlag schicken an: 


CW-Publikationen GmbH StraßeiNr. 


Vertrieb BERENEERIEEEREREEONBEEBERSRSAERGZE 1.08 EREIEBRRERRER EEE 


Postfach 40 04 29 PLZIOrt 
D-8000 München 40 3 
D Unterschrift 
Ja, ich bestelle folgende Disketten direkt beim Verlag EE a 
Oo ar zu RUN ren: Re re 513 ul 
29.80 (+ 3.— orto). Endpreis DM 32.80. ; : 
©} Disketten zu RUN Sonderheft Nr. 2/Bestellnr.: 613 Zahlungsweise (Zutreffendes bitte ankreuzen) 
DM 29.90 (+ 3.— DM Porto). Endpreis DM 32.90. = eE 5 
ED Disketten zu RUN Sonderheft Nr. 3/Bestellnr.: A1 = ee ausgestellter Verrechnungs 
DM 39.80 (+ 3.— DM Porto). Endpreis DM 42.80. i 
D) Disketten zu RUN Sonderheft Nr. 1/87 Bestellnr.: 713 


DM 34.80 (+ 3.— DM Porto). Endpreis DM 37.80. = “ 
Jahrgangssatz 1985: 12 Disketten in Schutzkassette ED} Versand per Nachnahme an obige Adresse. 
DM 231.30 (+ 3,60 DM Porto). Endpreis DM 234.90. 

Jahrgangssatz 1986: 12 Disketten in Schutzkasseiie 

DM 231.30. (+ 3,60 DM Porto). Endpreis DM 234.90 Alle angegebenen Preise sind Inlandspreise. 
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Marktübersicht 


€128-Anwendersoftware 


PROGRAMMNAME HERSTELLER VERTRIEB 


Buchhandel, Computerfachhandel, Waren | 21 


| 


häuser 
| Mülra Deten-Technik | Mikra Daien’Techik 
"DataBecker Gmb | Dat Becker Onbi 
| MükraDaten-Technik | Mükra Daten-Technik 
RVS Datentechnik Holtkötter GmbH 
C128-Forth RVS Datentechnik Holtkötter GmbH 
C128-Learn RVS Datentechnik HolköterGmbH Bez) 
C128-Makro RVS Datentechnik Holtkötter GmbH 7 
C128-Profi RVS Datentechnik Holtkötter GmbH 
COPY ci ER | Wiesen Teck 8 
Commodore 128 Anwender- MecGraw-Hill Book Company McGraw-Hill Book Company 
Datamat Plus 128 Data Becker GmbH Data Becker GmbH 
dBase II 
Fahrschule 128 Mükra Daten-Technik Mükra Daten-Technik 
ee 
Finanzbuchhaltung Markt & Technik 
Microsoft Basic Markt & Technik 
Microsoft Multplan 
Pascal /MT+ 
Prodat Markt & Technik Markt & Technik 
Profi Pascal Plus Data Becker GmbH 
Protext Markt & Technik Markt & Technik & 
Protext englischer Wortschatz Markt & Technik Markt & Technik * ; 
Small C Markt & Technik Markt & Technik 
StarComm Buchhandel, Computerfachhandel, Waren- 
häuser 
StarDatei Sybex Buchhandel, Computerfachhandel, Waren- 
häuser 
StarPainter Sybex Buchhandel, Computerfachhandel, Waren- ; 
häuser = 
StarTexter Buchhandel, Computerfachhandel, Waren- 
häuser 
T.H. FIBU 128 Heitz & Partner AG Heitz & Partner AG 
Textomat Plus 128 Data Becker GmbH 
Top - Ass Markt & Technik Markt & Technik 
Turbo Pascal Markt & Technik 
Vizawrite Classic Erben © 2 STE ee ee] 


Wordstar 3.0 Micropro Markt & Technik 
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Br: 
es = 


Ki. 


r 


speichern einzelner Vorgänge (Lieferschein) zur weiteren Verarbeitung, 
"individuelle Anpassung der Ausgabeparameter 


"kompletter CSprachumlfang nach Kernigham/Rlichie, unterstützt bis zu 7 
Laufwerke (RAM-Disk) 


{ 
h R' 
R RB 
Hi | 


Texteditor, automatisches Wählen, abspeicherbare Nummemliste, man- 
kompatibel zu StarTexter 


Arbeistäche DIN At beliebige Ausschnite Iaden, speichern, drucken: 


Zeicheneditor im Programm; mausunterstützt 


oO 


[7°] on [7° — 
I S o o | 


 Word-Wrap, universelle Drucker-Anpassung, eigene Zeichensätze ent- 
werfen und ausdrucken, kompatibel StarDatei z 
benötigt 80-Zeichen-MonitorundDiskettenlaufwerr 2 sFr. 290 
Schnittstelle zu Datamat 128 (Serienbriefe) - ee 
EST : = 8 


u 
Se} 
oo 


+ . _ > 
* [2 
ba > H 


EEE EEE ER 
Tabellenkalkulation, Datenbank und dreidimensionale Farbgralik. Inte- 298 

 gnertes Programmpaketohne Nachiaden 72 

Spaltenverarbaitung, desktopähnliche Oberfläche, vollständig in Deutsch 


199 
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Marktübersicht 
Amiga-Anwendersoftware 


PROGRAMMNAME VERTRIEB 


Regis Animator + Images 


- 
| 


Softshop Duisburg 
Softshop Duisburg 
Markt & Technik 


Softshop Duisburg 


i 


Markt & Technik 


Deluxe Paint II 

Deluxe Print 

Deluxe Print Data Disk #1 
Deluxe Video 


! 


5 
z 
so 
E 
3 


Digi-View Demodiskette 


Dvy 2 
Diskwik 


Dynamic CAD 


JAHREN 
ul 


es 
| 


Easyl-Grafiktablett Demodiskette 

Grabbit Discovery Software 
Grafkäideramming)_ | DM | 
Hausverwaltung Data Becker 

Instant Music Electronic Arts 

Lattice C-Compiler und Text Utilities Lattice Br; 

Lattice C-Text Utilities Ban Lattice 

Marauder II Discovery RB; 

Metacomco Lisp Metacomco 

Metacomco Macro-Assembler Metacomco 


Metacomco Pascal 
Metacomco Shell 
Metacomco Toolkit 


Music Studio 
Page-Setter 


Power Window + TxEd Demodiskette 
Power-Window 

Prism 

Pro Write + Flow Demodiskette 
Profimat Amiga 

Public Domain Disketten 
Realtime-Finanzbuchhaltung-EURO 
Superbase 

Superbase Amiga 


Superbase Personal 
Textomat Amiga 

The Mirror 

The Mirror Hacker Package 
UBM Text V 2.2 
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#1 Trickfilm, Animation, Zecbenerogramm Images inclusive 
1 Grafiksammlung zur Versendung mit Aegis Images 
vektororientiertes Zarbenzmsgrsum 
professionelles meträrtuges CAD-System 


Erstellung von Charts Dies Grafiken 


BEIN 


rem 
| | 


srennee Diek-Editor, sehr schnell 


chirmdaten 


Rz 
Ku 
ra 
B- 


| 


Desieso-Prblishing, Layout-Gestaltung 


Bbbortek mit Window-Routinen 
zer: 205 Farben gleichzeitig 


S i | 


Kopierprogramm mit allen Features Bi 


deutsch, Blockoperationen, grafische Oberfläche, Maussteuerung, 
versch. Schrifisätze, Serienbrief, WYSIWYG 


-keine Angaben 
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MarkatiDbersicht 


Amiga-Anwendersoftware (Fortsetzung) 


PROGRAMMNAME 


DTM : DTM : 
Meridian Software DTM 
DTM 


Vizawrite Desktop 
Vizawrite Desktop Demodiskette 
Zing! 

Zuma Fonts (Vol. 1 bis 3) 


Amiga-Hardwareerweiterungen PRODUKTART 


G 


ER WEITER U 


ICHERER, 


PRODCETKEME HERSTELLER VERTRIEB 


SPEI s 


1132,72 
1707,72 


Digi-View Digiize [Hort _  jmme | 
Druckerkabel Amiga 1000 
Jitter-Rid Bildschirmfilter 


KR 72 Amiga-Centronics-Kabel 


Lapine-Card 20 


Lapine-Card 2000 


Lapine-Card 30 RLL 


Lapine Erweiterungs-Kit 20 MB 


Lapine Erweiterungs-Kit 2000 


Lapine Erweiterungs-Kit 30 MB 
RLL 


SCSI Harddiskcontroller 
TIC Mouse Clock 


Festplattencontroller 


UBBBENE 
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merlarne mausgesteuert, WYSIWYG, Multitasking 
Semir Frese 
Dee > Text und Grafik gemischt 


ssze3 


ee DOS-Erweiterung mit Disk-Funktionen 


-keine Angaben 


c128-Hardwareerweiterungen 


PRODUKTNAME 


29008 


88002 


95000 


Wiesemann & Theis 
GmbH 


98064 


Wiesemann & Theis 
GmbH 


99032/32 


Wiesemann & Theis 
GmbH 


Centronics-Eingang für C64/128-Drucker 


V.24/R5232 C für © 64/128, nicht über 2400 
Baud 


steckerfertiger HiFi-Verstärker 


intelligentes Interface mit Handshake-Automa- 
tik, 300 bis 38400 Baud, 64 KB Pufferspeicher 


92008 G 


Wiesemann & Theis 
GmbH 


92128 GTI 


Wiesemann & Theis 
GmbH 


92000 G 


Wiesemann & Theis 
GmbH 


92000 K Userportkabel 


Wiesemann & Theis 
GmbH 


Betriebssystemum- 
schaltplatine 


SX « 128 


Klemmer u, Schulte 
Elektronik 


Klemmer u, Schulte 
Elektronik 


Klemmer u. Schulte 
Elektronik 


Elektronik 


Multimetererweiterung 


Userport-Centronics- 
Kabel 


Dr. Westerboer GmbH 


DTM 


Dr. Westerboer GmbH 


DTM 


Voicemaster 


Cavox 


DTM 


RS-232-Schnittstelle 


Microton 


DTM 


Promenade 


Jason Ranheim 


DTM 
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Druckerbufier und Codewandler für seriel- 
len Bus mit 32 KB oder 64 KB 


8 KB Pufferspeicher, nicht mit SpeedDos oder 
Geos 


128 KB Buffer 


Modul (mit Gehäuse) 


Modul (mit Gehäuse) 


Userport-Kabel mit Umtaschgarantie (2 Monate) 


Leichter Einbau, für 3x 16 KB Eproms, 
Betrieb im ö4er Modus 


Floppybeschleuniger (1540/41, 1870/71), 5 
bis 6 mal schneller Laden, mit Abschaltelek- 
tronik, komfortabler Monitor, Hardcopy 


Floppybeschleuniger (1540/41, 1570/71) im 
64er Modus, 5 bis 6mal schneller Laden, 
Wahlschalter ö4er/128er Modus 


inclusive Software-12 Bit Wandler, teilweise 
in Ässembler 


Das Anbieterverzeichnis finden Sie auf Seite 71 
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SOrtWare® 


Tips, Tricks und 


Spitzengrafik 


„Printfox“ ist nicht nur ein leistungsfähiges Pro- 
gramm zum gleichzeitigen Ausdruck von Text und 
Grafik. C54Anwender schätzen vielmehr seine 
schnelle Textverarbeitung mit verschiedenen Zei- 
chensätzen und seine Fähigkeit Grafikbilder an be- 
liebiger Stelle einzubinden. Der Zeichensatzeditor 
„Characterfox" erweitert die Möglichkeiten von 


„Printfox" um 15 zusätzliche Schrifttypen. „Printfox" 
verwendet für seine Grafikbilder ein eigenes For- 
mat. Bislang konnten Printfox-Anwender keine eige- 
nen Grafikbilder verwenden und mußten sich mit 
vorhandenen Grafiken begnügen. In diesen Tagen 
kommen mit „Printfox-Basar“ 200 neue Grafiken aus 
den unterschiedlichsten Themenbereichen. Die 
„Fox-Bibel", ein Anleitungsheft mit Tips und Kniffen, 
enthält alles was der Fox-Freund beim täglichen Um- 
gang mit „Printfox" und „Characterfox“ braucht. Alle 
Grafiken von „Printfox-Basar" sind mit „Superscan- 


abtastet, erstellt. Die 
in schwarz oder weiß u 


sind 


speichern. Grafiken aus dem „Printfox-Basar“ 
eine willkommene Bereicherung für alle, die sich 
keinen Scanner leisten können. Printfox-Grafiken ha- 
ben ein Auflösungsformat von 640 x 400 Punkten. Im 
Ausdruck entspricht dies in etwa einer halben DIN- 
A4-Seite. Bei den Grafikmotiven sind die unter- 
schiedlichsten Themenbereiche abgedeckt. So hat 
man freie Wahl unter Themen wie Technik, Natur, 
Kunst, Alltägliches und Karikaturen. Auf jedem Bild 
sind buntgemischt unterschiedlichste Abbildungen 


200 Grafiken auf drei Disketten, so 
heißt das Angebot von Scantronic's. 
Und obendrein gibt's beim Kauf von 
„Printfox-Basar" ein Übungsheft für 
die Textverarbeitung „Printfox" dazu. 


Alle Bilder sind im hochauflösenden Grafikmodus des C64. 


Grafiken, wie diesen „schnellen Flitzer“, bietet der Printfox-Basar. 
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passend zum Titel dargestelllt. Bei „Girls3“ lächelt 
Mona Lisa neben einer weiblichen Comic-Figur, un- 
ter „Vögel3“ ist neben Falken und Rotkelchen, der 
Bundesadler abgebildet. Für unterschiedlichste Ein- 
satzmöglichkeiten ist gesorgt. Die beigefügte „Fox- 
Bibel“ bezieht sich nicht direkt auf zusätzliche Grafi- 
ken, sondern gibt allgemeine Hinweise und Änre- 
gungen für Printfox-Anwender. Bei „Printfox" muß 
man Parameter zum Positionieren von Text und Än- 
dern des Zeichensatzes eingeben. Probleme tau- 
chen beim dreispaltigem Druck in den Zwischen- 
spalten auf. Hier ist zur Festlegung von Parametern 
einige Rechnerei unumgänglich. Die „Fox-Bibel" hilft 
dem entnervten Anwender weiter. Beispielhaft wer- 
den kleine und große Probleme genau durchgespro- 
chen und Lösungen gezeigt. Schwierigkeiten treten 
auch im Textlayout auf. Fehler beim Einsatz von Ta- 
bulatorzeichen sind versehentlich abgeschnittene 
Zeilen und ungleichmäßige Seitenränder. Hier er- 
läutert die Broschüre zweckmäßige Anwendungen 
von Formatierbefehlen. Als Ersatz für das Bedie- 
nungsheft ist die „Fox-Bibel" nicht gedacht. Sie soll 
vielmehr weitergehende Tips für den Einsatz von 
Printfox-Befehlen geben. Neu gelernte Erkennmmisse 
lassen sich anhand von mitgeliefertem UÜbungstext 
ausprobieren. Im zweiten Abschnitt Textgestaltung 


werden Rechenwege beim Konvertieren von Buch- 
staben zu Initialen erklärt. Eine geschickte Anwen- 
dung von Formatierungsbeiehlen läßt erstaunliche 
Spezialeffekte wie hervorgehobene Zeichen und 3D- 
Frakturschrift entstehen. Zeitsparende Wege zum 
Erstellen prunkvoller Umrahmungen werden im drit- 
ten Kapitel des Übungsheftes beschrieben. In Bei- 
spielrechnungen wird das Äbspeichern größerer 
Initialen als Grafikbild erklärt. Den Abschluß der 


Produkte wie „Superscanner II" oder „Colourprin- 
ter“. Unter Kapitel Sonstiges finden sich Tips zur An- 
passung von „Printfox“ an Floppy-Speeder und Inter- 
face. Erklärungen gibt es zudem für das auf der Cha- 
racterfox-Diskette befindliche Erweiterungspro- 
gramm „XF". Jetzt dürfte Laden von neuen Zeichen- 
sätzen und Äbspeichern in andere Textverarbei- 
tungsformate keine Schwierigkeiten mehr bereiten. 
Im Schlußsatz der „Fox-Bibel" gibt es dann Erklärun- 
gen zur geheimnisvollen Fehlermeldung „Ächtz!“: 
Der Speicherplatz ist bis zum letzen Bit gefüllt. Mit 
„Printfox-Basar" erhalten Anwender eine wertvolle 
Ergänzung. Mit der „Fox-Bibel" wird Anfängern und 
Profis eine nützliche Ergänzung zum Printfox-Hand- 
buch geliefert. 

(W. Haiduk) EEEEEEEEEENEEEEEE 


Flaches 5,25-Zoll-Diskettenlaufwerk für Commodore 


Ein Drittel schneller als das Modell 1541 


Voll kompatibel mit dem Commodore C64 und C128 


Absolut unschlagbarer Preis 


Schnellste Lieferung: 3 Tage nach Bestelleingang 


OC-118N 


Commodore C64 und C128 sind Warenzeichen von Commodore Business Machines Inc. 
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unformatiert 

: 

17062 
Spurdichte (tpi) 


(Kilobyte) 


3 
Q 
[5 
3“ 
(5) 
z 
2 
© 
je 
2) 


Abmessungen: 150 x 50 x 270 mm 
5 Stück/Karton/18,5 kg/2,22' 


Konyo International GmbH 


Fragen Sie nach: 

Herrn May Lin 
Anschrift: Kleine Aue 2 
D-6728 Germersheim 
Tel.: (0 72 74) 83 86 
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Hardware 


e Ladegeschwindig- 
ES lems mit 1570/71- 
verken ı übertrifft alles bis 


] weı den zum Baden von 202 Sc vier 


Sekunden benötigt — und das, obwohl im 128er 
Modus beim Laden jedes einzelnen Bytes geprüft 
werden muß. ın welche Bank es geladen werden soll. 


Durchdacht ist die Funktionstastenbelegung, die 
han son SpeedDOS geschaffenen Standard 
anlehnt Im 128er-Modus wird f4 zusätzlich mit 
Bload* belegt. Bei allen Arten von Load-Befehlen 
rekt aus dem Directory geladen werden, 
der Rechner lästig daran erinnert, daß 
nicht gelöscht“ oder die Angabe der Bank 
hat, Wird diese beim Laden nicht angege- 
Professional | 1571 automatisch in die zuletzt 
rochene stehende Bank (ab Adresse), die auf 


—BESb 


Gut fünf Sekunden brauchte das System in beiden 
Modi, um ein Testfile von 202 Blocks auf Diskette zu 
schreiben — mit Verify dauerte es drei Sekunden 
länger. Auf der Disk, die dem System beilag, waren 
auch zwei Kopierprogramme — ein Filecopy und das 
Backup-Programm „Xerox 71". Das Programm zum 
Überspielen einzelner Files ist eine angepaßte Ver- 
sion des von Roreger bereits für den C64 entwickel- 
ten „Filemaster Professional". Die neue Version 
kann nicht nur zwischen User- und Expansionsport 
unterscheiden, sondern erkennt auch automatisch, 
ob der Rechner mit einer Floppy 1541, 1570 oder 
157] arbeitet. 


TÄrrnceHnnN 


(D 
‚ 


nm u « 
=} 


202 Blocks in 5 Sekunden 


‚Xerox 71" ist ein neues Backup-Copy für 35 und 40 
(!) Tracks. Es kopiert mit der 1571 eine Diskettenseite 
bei viermal Wechseln in 20 Sekunden — inklusive 
Checksummentest und Verify. Der Formatierer ist 
mit eingebaut. Das Kopieren dauert nicht länger als 
das Formatieren einer neuen Diskette. Commodore 
selbst gibt an, daß die 1570/71 keine 40 Tracks bear- 
beiten könne — mit diesem System geht es ohne Pro- 
bleme. Mittels eines zusätzlichen Befehls (f8 — DE) 
kann eine Diskette, die mit den bisher üblichen 35 
Spuren versehen war, auf 40 Tracks nachformatiert 
werden. Man gewinnt dadurch 85 freie Blocks und 
erweitert die Kapazität der Diskette um beinahe 15 
Prozent — ohne Verlust der bisher auf der Diskette 
vorhandenen Daten. 
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Beim Beschleunigen der Formatierroutine wurde ein 
Fehler im Original-Betriebssystem behoben. Jetzt 
kann es nicht mehr passieren, daß nach einem 
„G0o64" eine Disk im C64-Modus beidseitig formatiert 
wird. 


Centronics-Schnittstelle und 
Hardcopy für 40/80 Zeichen 


Professional 1571 hat eine Centronics-Schnittstel- 
le mit Sekundär-Adressen 0 und 7 am Userport. Stan- 
dardbelegung. Hardcopy für 40/80 Zeichen mit 
CBM/CTRL/L im C64- und C128-Modus. ..“. Beim 
Test mit Printshop wurde das Au sgangsmenü als 40- 


DER 128er IM 
INDIGKEITO - 
AAUSLH 


Professional 1571 von Mikrotronic 
System Ist ein Parallelspeeder für alle 
drei Modi des C128/1571 beziehungs- 
weise PC 128D. Gleichzeitig sind 

alle Varianten des C128 mit Floppy 
1570/1541 beliebig damit kombinier- 
bar. 


Zeichen-Low-Res-Hardcopy einwandfrei zu Papier nem STA$ 2000 in der Floppy statt in der Zeropage 
gebracht. Mit einem Epson FX 85 (über Centronics- des Diskcontrollers herumpoken 

Kabel bei durchgeschleiftem Expansion-Port mit ge- „Professional 1571" wartet aber nicht nur mit Kompati- 
doppeltem Stecker) verarbeitet „Professional 1571"  bilitätsverbesserungen auf. Das Würgen und Rattern 
problemlos alle gängigen Text- und Datenverarbei- beim Einlegen einer beidseitig beschnmebenen 1541- 
tungsprogramme wie Vizawrite 128, Vizastar 128, Diskette ist ebenso abgestellt worden we die Le- 
Superbase 128, Textomat 128, Superscript und ande- gasthenie (Schreib-/Leseschwäche) emiger Lauf- 
re mehr. werke. Die 1571 ist damit eine echte Altern=tiwe zur 


Im CP/M-Modus gibt es keine Befehlserweiterung. 
Das Timing des BURST-BUSSES unter CP/M ist von 
Commodore ausgezeichnet gelöst. Ein serielles Be- 
schleunigen des Ladens ist kaum möglich, wenn die 
Austauschbarkeit von CP/M-Disketten mit anderen 
Rechnern gewährleistet bleiben soll. Mittels des 
Parallelbusses (mit CTRL/Reset abschaltbar) wird 
aber immerhin eine Beschleunigung des Ladevor- 
ganges um den Faktor 3 erzielt — ohne jeglichen 
Kompatibilitätsverlust. 


Kompatibilitätssteigerung 


Umsteigern vom C64 sind Spiele wie „World-Ga- 
mes" bekannt, die sich mit einer 1570/71 nicht laden 
lassen. Mikrotronic bringt die meisten dieser Pro- 
gramme zum Laufen. Probleme gibt es nur noch mit 
Programmen, bei denen die Kopierschützer mit ei- 


1541 geworden. 

Für den Fall, daß eigenwillige Programme wırkäzi 
einmal nicht laufen sollten, kann man die Beiehlse 
weiterungen wegschalten. So geht es sogar, daß di 
1571 nicht mehr über den BURST-BUS, sondern me 
eine 1541 über den seriellen Bus lädt. 

Mit Professional 1571 wird ein ausgereiftes System 
für den PC 128 beziehungsweise PC 128D angebo- 
ten. Mit seiner Anpassungsfähigkeit an alle gängigen 
Laufwerke (1541, 1541C, 1570, 1571 und BLUE CHIP) 
wird es auch ausgefallenen Gerätekonfigurationen 
gerecht. Alle 1570/77 und die 128D-Varianten sind 
hardwaremäßig baugleich, so daß ein Umsteigen 
ohne weiteres möglich ist. 

Professional 1571 setzt für den C128 einen Standard, 
der in puncto Kompatibilität, Geschwindigkeit und 
Bedienungskomfort vorläufig nicht zu überbieten 
sein dürfte. 

(cp!) a3 EEE 


Anbieterverzeichnis: 


CTT GmbH 


Heitz & Partner AG Mükra Daten — Technik 
Kreillerstr. 21 Weltistrasse 24 Schöneberger Straße $ 
8000 München 80 CH-5000 Aarau 1000 Berlin 42 
DTM Holtkötter GmbH Realtime Software GmbH 
Bornhofenweg 5 Albert-Schweitzer-Ring 9 Bamberger Str. 20 
6200 Wiesbaden 2000 Hamburg 70 8581 Eckersdorf/Bayreuth 
Data Becker GmbH Klemmer u. Schulte Elektronik Softshop Duisburg. 
Merowingerstr. 30 Berrenratherstr. 496 Müllersgasse 6-8 
4000 Düsseldorf 5030 Hürth Efferen 4100 Duisburg 1 
Dr. Westerboer GmbH Markt & Technik Sybex-Verlag GmbH 
Prößlstr. 18 Hans-Pinsel-Str. 2 Vogelsanger Weg 111 
8480 Weiden 8013 Haar 4000 Düsseldorf 30 
Eurokey Tastaturen GmbH McGraw — Hill Book Company Wiesemann & Theis GmbH 
Ravensburger Str. 128-134 Lademannbogen 136 Winchenbachstr. 3-5 
7981 Berg 2000 Hamburg 63 5600 Wuppertal 2 
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Public Domain-Software Ist eine preis- 
werte Alternative zu professionellen 
Programmen. Im ersten Teil unserer 
Serie bringen wir ein Verzeichnis der 
ersten 30 „Fish-Disks“. 


Fred Fish Disk 1 
Amigademo  Grafik-Benchmarktest 


Amigaterm einfaches Terminalprogramm für 
.... Xmodem 
Balls Simulation „Kinetic Thingy“ 
Colorful Zeigt Hintergrundbetrieb vom HAM- 
Mode 
Dhrystone Dhrystone Benchmarkttest 
dotty Source-Code vom Dots-Demo 
freedraw einfaches Malprogramm 
gad John Drapers Gadget-Tutorial 
Programm 
afxmern Grafik-Speicher Monitor 
halfbrite Demonstriert den „Extra-Half-Brite- 
Mode" 
hello Einfaches Window Demo 
latffp Zugriff auf die Motorola-Fast- 
Floatingpoint-Bibliotek von C 
palette Beispiel zum Erstellen einer 
Farbpalette 
Trackdisk Demonstriert die Benutzung des 
Trackdisk Drivers 
Requesters John Drapers Requester-Tutorial und 
Beispiel-Programm 
speech Beispiel-Programm für 
Sprachausgabe 
Speechtoy Beispiel-Programm für 
Sprachausgabe 
Fred Fish Disk 2 
alib Objekt-Modul Biliothek 
cc 
dbug Systemunabhängiges Makro- 
Debugging-Package 
make Subset vom Unix-make Kommando 
make2 a 
microemacs kleine Version vom Emacs-Editor 
portar Portable file archiver 
ST Decus © Cross-Reference-Utility 
Fred Fish Disk 3 
gothic Gothic-Font Banner-Drucker 
roff „Roff‘-Text-Formatierung 
Me Schnelle Text-Formatierung 
cforth Forth-Implemation 
xlisp Xlisp V1.4, arbeitet nicht korrekt 
Fred Fish Disk 4 
banner druckt horizontale Banner 
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Public Domain 


bgrep Boyer-Moore Grep-like-Utility 
ison CNU-Unix-Ersatz für „yacc"; nicht 

lauffähig 

bm Boyer-Moore Grep-like-Utility 

grep DECUS-Grep 

kermit einfaches Kermit ohne „Connect- 
Mode* 

MyCLiI Ersatz-CLI Version 1.0 

mandel Mandelbrot-Programm von Robert 
French und R.]. Mical 

Fred Fish Disk 5 

cons Consolen-Demo-Programm 

freemap generiert Diagramm über freien 
Speicherplatz 

input.dev Beispiel-Input-Handler 

joystick zeigt Joystickabfrage 

keyboard zeigt direkte Kommunikation mit 
Keyboard 

layers Demonstriert Layers-Bibliothek 

Mandelbrot IFF-Mandelbrot-Programm 

mouse Maussteuerung für rechten Port 

one.window Consolen-Window Demo 

parallel Zeigt Zugriff auf Prallel-Port 

printer läuft nicht 

print.support läuft nicht 

proctest läuft nicht 

region zeigt geteite Zeichenbereiche 

samplefont Beispiel-Font mit Erklärung 

serial Zeigt Zugriff auf seriellen Port 

singlePlay- 

field erstellt 320x200-Spielfeld 

speechtoy Sprach-Demo 

speech.demo Sprach-Demo 

text.demo Zeigt die erhältlichen Fonts 

timer Zeigt Verwendung von 
„Timer.device* 

trackdisk Zeigt Trackdisc-Driver 

Fred Fish Disk 6 

compress wie Unix-Compress; File Sequenzer 

dadc Analog-Uhr 

microemacs neue Version von Disk 2 

mult 

scales Zeigt die Verwendung von Sound 

setparallel verändert Parallel-Port-Parameter 

setserial verändert Parameter für seriellen 
Port 

sorte Sortierprogramm in C 

stripe entfernt 

Fred Fish Disk 7 

Spiel: Hack V1.0.1 

Fred Fish Disk 8 

C-Source-Code zu Hack 


im Überblick 


Fred Fish Disk 9 
moire Zeichnet Moire-Patterns in 
Schwarzweiß 


MVP-Forth Mountain View Press Forth V1.00.03a. 

proff Text Formatierungs-Programm 

setlace Interlace An/Aus-Schaltung 

skewb Rubics Cube Demo 

sparcs Grafik-Demo 

Fred Fish Disk 10 

conquest Adventure-Simulations-Spiel 

dehex Konvertiert Hex-Files in Binär-Code 

filezap Patch-Programm 

fixobj Beseitigt Fehler in Files, die mit 
Xmodem übertragen wurden 

iff Lese/Schreib-Routine für IFF-Files 

ld einfaches Directory-Programm 

ls Minimal-Unix „Is" 

sq.usq File-Packer/Unpacker 

trek73 Star Trek-Spiel 

yachtce Würfelspiel 

Fred Fish Disk 11 

dpslide IFF-Slide-Show 

Fred Fish Disk 12 

amigadd Rotierendes 3D-Amigazeichen 

ArgoTerm Assembler Terminalemulator 

arrowsd Rotierendes 3D-Bild 

ld4 Directory-List-Programm 

iconExec 

SetWindow Utilities um Programme von der WB 
zu Starten, die nur unter CLI laufen 

SetAlternate 

Starl’erm Terminalemulator 

Fred Fish Disk 13 

Sammlung von Basic-Programmen 

Fred Fish Disk 14 

amigasd Update zu Disk 12 

beep Beep-Funktion 

dex entfernt Text aus C-Source-Codes 

dimensions zeigt n-dimensionale Grafiken 

filezap Update zu Disk 10 

gfxmern einfacher ANSI VT100-Terminal- 
Emulator 

shell einfaches Unix „csh" Shell 

termcap Unix-kompatibles „termcap“ 

Fred Fish Disk 15 

Blobs Grafik-Demo 

Clock einfache Digital-Uhr für Menüleiste 

Dazzle Grafik-Programm 

Fish Fisch-Animation 

Monopoly Monopoly-Spiel 

OkidataDump Okidata ML92-Treiber 

Polydraw Malprogramm 

Polyfractals Fractal-Programm 
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Fred Fish Disk 16 
Entwickler IFF-Disk 


Fred Fish Disk 17 

HAM-Demo Disk 

Fred Fish Disk 18 

AmigaDisplay Dump-Terminal-Programm 
Ash Beta-Version C-Shell 
Browser File-Utilities 


MC868010 Erlaubt 68010-Prozessor zu benutzen 

Multidim n-dimensionaler Würfel wird mit 
Joystick rotiert 

Piglatin Say-Komando in spricht „Pig Latin" — 
(Schweine Latein) 

Scrimper Screen-Inmage-Drucker 

Xlisp1.6 Lisp-Interpreter 

Fred Fish Disk 19 

BlackJack Kartenspiel 

JayMiner- Slides von Jay Miner, Amiga Grafik- 

Slides Chip Designer 


Keymap__Test Test der Keymap-Routienen 
LockMon Findet nicht geschlossene Files 


Fred Fish Disk 20 

AmigaToAtari Konvertiert Amiga-Objkt-Code in 
Atari-Format 

Recover von Programmen 

Beispiel für AmigaDOS-Disk-Hashing 
Mandelrot-Wettbewerbs-Sieger 
Anleitung und Beispiele für „Exec- 
Level-Multitasking" 

entfernt Spaces aus C-Source-Code 
Beispiel Port-Handler 
Zufallszahl-Generator 
Maussteuerung rechter oder linker 
Port 

SpeechTerm Terminal-Emulator mit Sprache 
TxEd Demo-Texteditor 


Fred Fish Disk 21 
Thomas Wilcox Mandelbrot-Explorer-Set 


Fred Fish Disk 22 
Lemacs Version 3.6 
Pemacs neue Version 


Fred Fish Disk 23 
Source-Codes von MicroBEmacs 


Fred Fish Disk 24 

Conques Adventure-Simulations-Spiel 
Csh Update zu Disk 14 

Modula-2 Beta-Version Modula2 

Fred Fish Disk 25 

Grafik Hack Grafik-Version von Hack 
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DiskSlav 
Hash 
MandelBrots 
MultiTasking 


Pack 
PortHandler 
Random 
SetMouse2 


Fred Fish Disk 26 


UnHunk „Hunk“-Programm von Eric Black 
C-kermit Kermit-File-Transfer-Programm 
Ps Zeigt und setzt Prioritäten 


Archx Text-Transfer-Programm 
Fred Fish Disk 27 

ABdemos Basic-Demos 

NewConvent- 

FD Erstellt .bmaps von fd-Files 
BitPlanes findet Bitmap-Adressen 


AboutBmaps Erklärung zum Erstellen und 
Benutzen von Bitmaps 

LoadILBM Läd und zeigt IFF-ILBM-Bilder 

LoadACBM Läd und zeigt ACBM-Bilder 


ScreenPrint Erzeugt Demo-Bildschirm und druckt 
ihn 

Disassem einfacher 68000 Disassembler 

Dvorak- 

Keymap 


Hypocycloids Spirograph aus der Feb.84 Byte 


LinesDemo Beispiel um SuperBitMap zu scrollen 

Mem- 

Expansion 1Mb-Memory-Expansion 

SafeMalloc Programm um „malloc()“-Aufrufe zu 
debuggen 

Science- Jede Art von Zeitberechnungen, 

Demos Stemstände eic. 


Fred Fish Disk 28 

Diverse Basic-Spiele 

Cpp DECUS „cpp" C-Preprozessor 

Shar Unix-Kompatibler Shell-Archiver 

SuperBitMap Beispiel zur Verwendung eines 
Scroll-Layers 


Fred Fish Disk 29 

AegisDraw 

Demo Demonstrations-Programm 
Animator 

Demo Player für Aegis Animator-Files 


Gc Unixahnlicher Font-ed für Manx C 


Enough Test-Programme 

Rubik Animiertes Rubiks-Cube Programm 

StringLib Unix-String Bibliotheks-Funktionen 

VT100 VT-100 Terminal-Emulator mit Kermit- 
und Xmodem-Protokollen 

Fred Fish Disk 30 


Diverse Shareware-Programme 


BBS BBS von Ewan Grantham 
FineArt Amiga-Kunst 

FontEditor einfacher FontEditor 
MenuEditor Erstellt Menüs 


StarTerm3.0 Telekommunikation von Jim Nangano 


Television störungsfrei 


Mit einem in vielen Computerläden erhältlichen TV- 
Tuner wird für 200 Mark aus dem Amiga ein Fern- 
sehgerät. Argerlich bleibt, daß der Fernsehbetrieb 
nur bei ausgeschaltetem Rechner störungsfrei funk- 
tioniert. Mit dem auf der Monitorvorderseite befindli- 
chen RGB-CVBS-Umschalter kann zwar zwischen 
Computerbetrieb und TV umgeschaltet werden, 
aber bei laufendem Rechner ist das Fernsehbild er- 
heblich gestört. 

Ursache für die Störungen ist das FBAS-Signal auf 
Pin 20 des Euro-Steckers. Wird dieses unterbro- 


chen, sind die Störungen weg. Da für den Computer- 
betrieb diese Signalleitung aber notwendig ist, muß 
ein Schalter montiert werden. Dazu öffnet man das 
Gehäuse des Eurosteckers, welches in den Monitor 
kommt, lötet an die unterbrochene Leitung 20 eine 
zweiadrige Litze, führt diese nach außen und mon- 
tiert einen einfachen Ein/Aus-Schalter — fertig. Die 
Garantie wird nicht verletzt — der Multimediaspaß 
ist vollkommen. Während einer öden Kopiersitzung 
kurz auf die Guldenburgs oder den Clan umschalten 
zu können, versüßt das Hackerdasein. (avi) 


EDP DEUTSCHLAND REPORT 


NEWSLETTER DER 
IDC-DEUTSCHLAND 


® aktuelle Daten der 
Computerindustrie 


® Markttrends 
® Analysen 


Einzelausgabe 


© Neuankündigungen 


erscheint vierzehntägig 
DM 50,— 
Jahresabonnement DM 680,— 


Anfragen und Bestellungen an: 


EIN MUSS FÜR DAS MANAGEMENT 
DER COMPUTERINDUSTRIE 


IDE 


IDC DEUTSCHLAND GMBH 
Stuttgarter Str. 10, 6236 Eschborn, 
Telefon: 06196/4 86 88 
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Endspurt im 


Animations -Wettbewerb 


Ein Monat bleibt allen Video-Enthu- 
siasten, um sich an unserem Wettbe- 
werb zu beteiligen. Jetzt heißt es, 
Ideen schnell umsetzen und an uns 
abschicken, um die Chance auf einen 
Preis zu wahren. 


Die ersten Video-Clips haben inzwischen die Redak- 
tion erreicht. Wir sind begeistert von dem, was unse- 
re Leser zustande gebracht haben. Doch noch ist der 
Einsendeschluß nicht erreicht, sind die Preise nicht 
vergeben, 

Für alle, die sich im Endspurt beteiligen wollen, noch 
einmal die Bedingungen: 

RUN und das AAM-Team rufen alle Animations-Fans 
zum großen Wettbewerb auf: Gesucht werden die 
besten animierenden Grafiken. Ganz gleich mit wel- 
chem Grafikprogramm Sie arbeiten, oder welche 
Hilfsmittel herangezogen werden. Der Kreativität 
sind keine Grenzen gesetzt. Selbstverständlich sind 


auch eigens entwickelte Animationsprogramme er- 
laubt. Die Länge der Filmsequenz spielt keine Rolle. 
Egal, ob kleiner Cartoon oder minutenlanger Trick- 
film, Originalität ist gefragt. 

Den Siegern winken attraktive Preise: 

1. Preis: 2000 Mark und eine Einladung zum AAM- 
Team in München 

2. Preis: Besuch eines Trickfilmstudios in München 
mit dem AAM-Team. 

3. bis 22. Preis: Je ein von AAM-Team produziertes 
Construction Set zum Entwickeln eigener Video- 
clips. En plus werden alle Teilnehmer im Falle einer 
Veröffentlichung ihres Clips prozentual am Gewinn 
beteiligt. 

Einsendeschluß ist der 16. 6. 87 

Bitte geben Sie bei der Einsendung an, mit welchem 
Programm der Clip erstellt wurde. Einsendungen 
auf VHS-Videokassette sind ebenfalls möglich! 
RUN-Redaktion 

Kennwort: Videoclip 

Rheinstraße 28 

8000 München 40 


Harddisk-Retter 


Die preiswerte Alternative zu einem 
teuren Streamer-Tape für Festplatten- 
Backups ist das Programm „HardHat". 
Mit ihm werden Sicherheitskopien 
auf Disk gespielt. 


Festplatten glänzen durch Schnelligkeit und Be- 
triebssicherheit. Doch auch sie bieten keine absolute 
Garantie für Absturzfreiheit des Systems. Ein Strea- 
mer-Tape zur Datensicherung kostet rund 1000 
Mark. Eine preiswerte Alternative ist HardHat. Mit 
diesem Programm werden die Daten einer Harddisk 
auf Disketten übertragen. Directory-Strukturen blei- 
ben erhalten. Die Besonderheit: Anstelle der 880 
KByte, die normalerweise vom Amiga auf einer 3%- 
Zoll-Diskette untergebracht werden, schreibt Hard- 
Hat | MByte auf jede Disk. Für den Backup-Vorgang 
wird pro MByte-Speicherkapazität der Festplatte 
eine Diskette benötigt. 


ee en 


Die Geräte-Konfiguration wird per Pull-down-Menü 
eingestellt und automatisch gespeichert. Die Zieldis- 
ketten müssen vorformatiert und im Label durchnu- 
meriert sein. Der Label besteht aus zwei Kennungen. 
Mit H0, Hl, H2 etc. wird die Nummer der Harddisk 
angegeben. Dann folgt mit F001, F002 etc. die Rei- 
henfolge der einzelnen Disketten. Wird der Backup- 
vorgang unterbrochen, muß wieder mit der ersten 
Diskette begonnen werden. 


Neben einem kompletten Backup kann ein File- 
Backup ausgewählt werden. Weiterhin wird ein „Än- 
derungs-Backup“ angeboten. Hier wird ein Extra- 
File untersucht, ob auf der Platte Veränderungen 
stattgefunden haben. Nur veränderte Files werden 
gesichert. 


Negativ fällt der sehr langwierige Kopiervorgang 
auf. Für 1 MByte Plattenkapazität benötigt HardHat 
35 Minuten Kopierzeit. Trotzdem ist das Programm 
mit einem Preis von 159 Mark jedem Festplatten- 
Benutzer zur Datensicherung zu empfehlen. 
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Ob Regen oder Schnee — jetzt brau- 
chen Golfer nicht mehr auf ihren 
Lieblingssport zu verzichten. Activi- 
sions neueste Golfsimulation macht's 


manB Bälle auf einem der teuersten 
Golfplätze Kaliforniens ein. 


USA liegen direkt am Pazifik. Eine leichte Brise weht 
über Pebble Beach. Über den angrenzenden heili- 
gen Rasen sind alle gekrönten Häupter der Golfge- 
schichte geschritten. Heute bleiben Caddy und 


5 Top view 


Pebble Beach — eine der schönsten Landschaften an der 


amerikanischen Westküste. Hier liegt das Terrain von 
Championship Golf“. 


Golfschläger im Wagen. Alles was für die „Ameri- 
can Open" benötigt wird, ist Amiga und „Champion- 
ship Golf“, Dieses Programm simuliert die Greens 
des Kurses von Pebble Beach bis ins Detail. Selbst 
der vom Pazifik herüberwehende Wind muß beim 
Einlochen berücksichtigt werden. Der Spieler muß 
kein Bernhard Langer sein, benötigt aber nichtsde- 
stotrotz gute Kenntnisse über alle Aspekte des Golf- 
sports. Das fängt damit an, aus einer Tasche mit den 
14 Schlägern die richtige Wahl zu treffen. Und wie 
die für den dann folgenden Schlag adäquate Bein- 
stellung zu sein hat. Der „Slazenger" kann unter- 
schiedlich gespielt werden — voll, unterschnitten, 
angedreht oder nur ganz leicht. Zum Aufwärmen 
steht eine Ubungsbahn zur Verfügung. Hier werden 
zu jedem Schlag die erzielten Weiten angezeigt. Die 
Grafik gehört zum Besten, was auf dem Amiga der- 
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Championship Golf 


VRR Parcours stehen zur Auswahl. 


zeit erhältlich ist. Beim Sound gibt es noch kleine 
Mängel — so hört sich der Ballaufschlag im Gras 
recht unrealistisch an. Störend ist das ständige Nach- 
laden. Zu jedem Schlag müssen erst die entspre- 
chenden Daten von Diskette geholt werden. Trotz- 
dem sind diese „kleinen Macken" und der etwas 
langsame Bildaufbau für den echten Golf-Fan leicht 
zu verschmerzen. An Realitätsnähe und Detailtreue 
schlägt „Championship Golf“ von allen bisher er- 
schienenen Golfsimulationen das beste Eisen. Auch 
was das Spielvergnügen betrifft, kommt das Spiel 
dem echtem Golfsport sehr nahe. Der wahre Genuß 
kommt — aufgrund der komplizierten Bedienung — 
nur beim fachkundigen Golfer zustande. „Cham- 
pionship Golf" ist eine Augenweide für viele, aber es 
bleibt ein Spiel für wenige. 


(cp!) 


Programmname: Championship Golf 
0 l 2 3 4 


en 


Idee/Story 
Grafik/Animation 


Sound/Sprache e 


Schwierigkeitsgrad 
Spielspaß 


Gesamteindruck: 


Spielerzahl: 1 

Besonderheiten keine 

Hersteller Gamestar/ Activision 
Preis: Disk 79.95 Mark 
Vertrieb: Ariolasoft 


” GRUNDLAGEN 


TESTS 


SOUNDSAMPLING — 
FASZINATION IN 
NOTEN 


{ IN ALLER MUNDE: 
DESKTOP PUBLISHING 


EXCLUSIV: 


ERFAHRUNGEN 
MIT GENLOCK 


VIDEO-CLIPS 
SELBST GEMACHT 
» BLICKPUNKT MS-DOS 


LISTINGS; 
SYSTEMROUTINEN 
TIPS UND TRICKS 


12,—: ÖS 35,—; Lire 11.500, —; Fmk 41,—: hfl 1 


$ 
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BESTELLSCHEIN: 


Bestellschein bitte ausfüllen und 
ggf. mit unterschriebenem Verrech- 
nungsscheck in einem ausreichend 
frankierten Umschlag schicken an: 
CW-Publikationen 
Verlagsgesellschaft mbH — 
Vertrieb 

Postfach 40 04 29, 

D-8000 München 40 
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KNOW HOW 


) SONDERHEFT 2/87 
seit 11. Mai im Zeitschriftenhandel DM 12.— 


Ei 
BR: 


* Inlandpreise 


Ausführliche Informa- 
tion rund um Amiga. 
Objektive und aussage- 
kräftige Tests, Hinter- 
grundberichte und Ein- 
stiegshilfen verbunden 
mit dem Know-how, das 
Ihnen nur ein starkes 
Team von Fachleuten 
bieten kann. Nutzen Sie 
dieses Wissen für sich. 


Amiga-Welt: Das unent- 
behrliche Informations- 
und Nachschlagewerk. 


ich bestelle das Amiga-Welt direkt 


beim Verlag. Name/Vorname 


Zahlungsweise (Zutreffendes bitte 

ankreuzen): Straße/Nr. 

Verrechnungsscheck über DM 14, — 

(DM 12,— Heftpreis + DM 2,— Rückporto) 

liegen bei. PLZ/Ort 

Versand per Nachname zum Preis von 

DM 15,70 (DM 12.— Heftpreis, DM 2.— - : 

Porto, DM 1,70 Nachnamegebühr) Unterschrift 
Datum 
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" „Börsenspiel“ ist eine Simulation mit 


allen Raffinessen. Ob der Gewinn 
steigt oder sinkt, liegt allein bei 
Ihnen. 


Ziel dieses Spieles ist, mit Spekulationen an der Bör- 
se einen Gewinn zu erzielen. Dem Spieler wird ein 
Anfangskapital von 20 000 Mark zur Verfügung ge- 
stellt. 


Liste aller wichtigen Variablen 


G ı Bestimmt die Geldmenge 

K ı Bestimmt die Kapitalmenge 

AK$ : Name aller Aktien (1-10) 

WE$ : Wert aller Aktien (1-10) 

VE : Veränderungen aller Aktien (1-10) 
AN ; Besitz der Aktien 

TE$ : Tendenzen der Aktien 


Das Spielfeld ist in fünf Windows unterteilt. Die Be- 
dienung des Spieles erfolgt über Pulldown Menüs. 
Aktienwerte bleiben konstant, bis man auf das Pull- 
down „N.Monat* get. Wenn der Spieler nach zwei- 
einhalb Jahren nicht Pleite ist und den Gewinn genü- 
gend erhöht hat, erfolgt eine Bilanz. 

Im Börsenspiel kann man sein Geld entweder auf die 
Bank bringen oder in Aktien investieren und zu guter 
Letzt noch verspielen. 

Bank: Das Geld kann jederzeit gespart oder abgeho- 
ben werden. Guthaben werden jeden Monat ver- 
zinst. Der Zinssatz wechselt zufallsbedingt von 0,1 bis 
zu einem Prozent. 

Aktien können jeden Monat ver- oder gekauft wer- 
den, Monatliche Veränderungen kann man sich im 
Menü „Tendenzen/+/—" ansehen. Das Aktienwin- 


Finanz- Bankfenster| |Glücksspiel- 
anzeige 


Kapitalkurve * 20000 + 


2 — A ei ARE 


Zeiger 


Aktien- und Tendenzfenster 
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al Basar ı nı: 


blinkende 


Börsentraining 


it Amiga 
dow befindet sich am unteren Bildschirmrand. In der 
ersten Zeile stehen aktuelle Kurse, darunter die An- 
zahl der jeweiligen Aktien. 
+/— Veränderungen und Tendenzen werden hier 
angezeigt. Die Tendenzen sind unter dem Menü 
„Tendenzen anzeigen“ anwählbar. Sie geben die 
Bilanzen der Firmen durch ein „+" oder „— wieder. 
Die Errechnung der neuen Kurse ist durch die Bilan- 
zen und durch den Zufall bedingt. 
Glücksspiel: Sie können durch Betätigen des Glücks- 
spiel-Menüs entweder 100 Mark Gewinn oder Ver- 
lust machen. 
Kapital: Das Kapital des Spielers errechnet sich aus 
Geld, Aktienkapital und aktuellem Kontostand. Ver- 
änderungen des Kapitals sind aus der Kapitalkurve 
(die jedes Jahr in einer anderen Farbe darstellt) und 
aus dem Kapitalbarometer ersichtlich. 


(Elmar Licharz) 
Unterprogramme 
Bildaufbau: Setzen der Windows, Menüs und der 


arhaoan 


_ 


und Aktie, Zuweisung. 
n: Verantwortlich für das 


Pleite/Unentschieden/Sieg: Endberechnungen 
des Spieles. 

Winner/Loser/Endmusik: Erzeugen bestimmte 
Töne. 

Kapitalkurve: Setzt die Linie für den Kapital- 
stand. 


Aktienbarometer 


Aufteilung des 
Bildschirm-Fensters 


Börsenspiel 


' 


.° 3, .Licharz 
; 1987 


'Setzen der Werte 


DEFINT A-Z 
CLEAR 30000 


Farbe=1 

A=2:b=10:6=20000 :K=20000:Bgq=20:R=.5:Ewertu-5:Ewertk=105 
DIM Ww(10) 

DIM Ak$(b) ‚We(b) ‚VE(b) ‚An(b) ‚Kk(b) ‚Gg(b) ‚Tes(b) ‚Pp(10,5) 
FOR t=1 TO 10 ıWe(t)=300:Te$(t)="?":VE(t)=0:NEXT t 


Bildaufbau: 


SCREEN 1,640,200,3,2 

WINDOW 6,"",(5,10)-(630,180) ‚16,1 

WINDOW 2, "Guthaben", (5,15)-(100,70) ‚16,1 
WINDOW 3, "Besitz", (5,150)-(630,180) ,16,1 
WINDOW 5, "Spielbank", (225,15)-(330,70),16,1 
WINDOW 4, "Bank", (115,15)-(210,70),16,1 


RANDOMIZE TIMER 


PALETTE 0,0,0,0:PALETTE 4,.6,.1,.9 
PALETTE 1,.3,.3,1:PALETTE 5,.6,.6 .6 
PALETTE 2..7,.6,.4:PALETTE 6, .1, 
PALETTE 3, .4,.7,.8:PALETTE 7,.8, 
WINDOW OUTPUT 6 j 
LINE (5,105) -(360,105) ,7 

LINE (500,15)-(500,125) ,5 
LOCATE 2,59 

PRINT "Barometer" 

LOCATE 10,14 

PRINT '"Kapitalkurve" 

GOSUB Aufbau 


.9,.5 
3 
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'Menuaufbau 


MENU 1,0,1,"Weiter" 
MENU 1,1,1,"N.Monat" 


MENU 2,0,1,'"Kaufen" 
MENU 2,1,1, "BMW" 
MENU 2,2,1,"Philips" 


‚1,"Kaufhof'" 
P T: “ "AEG . 
I. DB 
Flat“ 
1 h "yWw" 
1," BASE 
1 r "Krupp LI} 
„ie Ford 


1,'"Verkaufen" 
1 3 "BMW" 
1,"Philips" 


1: % a NA’ al 
1,"BASF" 
1: n, "Krupp' 
In Ford. 


‚"Tendenz" 
‚„"Anzeigen" 


‚„1,"Sparen" 
„1,"Abheben" 


;"Gluecksspiel" 


ON MENU GOSUB Menue 


'barometer setzen 


Baro: 
WINDOW OUTPUT 6 


LINE (495,Bp)-(505,Bp),O 
LINE (500,15)-(500,125) ‚5 
LINE (515,60)-(520,60) ‚5 
FOR i=25 TO 115 STEP 10 
LINE (515,i)-(520,i1),4 


NEXT i 
Bp=INT (K/200) :Bp=160-Bp 


IF K>23500 THEN Sieg 
IF jahr=2 AND Monat=6 THEN Unentschiede 
IF K<19000 THEN Pleite 


LINE (495,Bp)-(505,Bp) ,3 
Xs=Xs+1 

IF Xs=30 THEN SOUND RESUME 
GOTO Start 


Berechne: 


Monat=Monat +1 
IF Monat=12 THEN Monat=0:jahr=jahr+l 


FOR F=1 TO 10 
FOR i=1 TO 3:Pp(F,i)=INT(6*RND): NE 
NEXT F 


FOR -F-2:TO::10 
IF Te$(F)="+" THEN Pa(F)=INT(12*RND) 
IF Te$s(F)="-" THEN Pa(F)=INT(10*RND) 
NEXT F 


FOR F=1 TO 10 
Ww(F)=We(F)+Pp(F,1)+Pp(F,2)-Pp (F,3) 
Ww(F)=Ww(F)+Pa(F) 

VE(F)=Ww(F)-We(F) 
We (F)=Ww(F) 
NEXT F 


Ko=Ko+(Ko*R/100) 
Ko=INT (Ko) 

Ak=0 

tt=K 


FOR i=1 TO 10 
zu=INT(3*RND)+1 :Ak=Ak+An(i)*We(i) 
IF zu=1 THEN Te$(i)='"+" 
IF zu<>1 THEN Te$(i)="-" 

NEXT i 


K=G+Ak+Ko 

R=INT(10*RND) +1 

R=R/10 

IF K>tt THEN GOSUB Winner 
IF K<tt THEN GOSUB Loser 
GOSUB Kapitalkurve 

GOSUB Aufbau 

GOTO Baro 


Kauf: 


E=MENU (1) 
IF G<We(E) THEN Start 


An(E)=An(E) +1 
G=G-We (E) 
GOTO Aufbau 


Verkauf: 


E=MENU (1) 

IF An(E)=0 THEN Start 
An(E)=An(E)-1 

G=G+We (E) 

GOTO Aufbau 


Tendenz: 


IF MENU(1)=2 THEN Veraenderungen 
WINDOW OUTPUT 3 
RESTORE Datas 
CLB 
PRINT" BMW Philips Kaufhof AEG D.B. 
PRINT'"VW BASF Krupp FORD" 
PRINT" Ms 
FOR i=1 TO 10 

READ 1 

PRINT Te$(i); 

PRINT SPC(1+2); 
NEXT i 


Taste: 


PRINT: PRINT" <Taste?>"; 
WHILE INKEY$="" 

WEND 

GOTO Aufbau 


Veraenderungen: 


WINDOW OUTPUT 3 

RESTORE Datas 

CLS 

PRINT " BMW Philips Kaufhof AEG D.B. FIAT 
PRINT "VW BASF Krupp FORD" | 
PRINT “ „ ; 


FOR i=1 TO 10 
READ 1 
PRINT VE(i); 
PRINT SPC (1); 

NEXT i 

GOTO Taste 


Bank: 


WINDOW OUTPUT 4 
WINDOW 4 
CLS 


PRINT "Wieviel" 
INPUT Ku 


ON MENU(1) GOSUB Sparen, Abheben 
RETURN 


Sparen: 


IF Ku>6 THEN Aufbau 
G=G-Ku 

Ko=Ko+Ku 

GOTO Aufbau 


Abheben: 


IF Ku>Ko THEN Aufbau 
G=G+Ku 

Ko=Ko-Ku 

GOTO Aufbau 

GOTO Start 


Spiel: 


IF G<100 THEN RETURN 
Dw = INT(3*RND(1) +1) 


IF Dw=1 THEN 
G=6+100 : K=K+100 
ELSE 
G=G6-100 : K=K-100 
END IF 
GOSUB Aufbau 
RETURN 


Aufbau: 


WINDOW OUTPUT 2 

CLS 

PRINT "Geld ":PRINT G 

PRINT "Kapital ":PRINTK 
WINDOW OUTPUT 4 

cLS 

PRINT "Konto" 

PRINT :PRINT Ko 

PRINT:PRINT "Zins :";R"%" 
WINDOW OUTPUT 5 

CLS 

PRINT "Doppelt" 

PRINT " = Fl 

PRINT " Nichts" 

PRINT:PRINT " 100" 

WINDOW OUTPUT 3 

ELS 

PRINT " BMW Philips Kaufhof 
PRINT "VW DBASF Krupp FORD" 
RESTORE Datas 


FOR 1»1.T0O I8 
READ 1 
PRINT USING "###"; An(i); 
PRINT SPC(D3 

NEXT i 


RESTORE Datas 
PRINT:PRINT" "; 
FOR u=1 TO 10 
READ 1 
PRINT USING "###"; We(u); 
PRINT SPC(1); 
NEXT u 
RETURN 


Datas: 


DATA 5,6,5,3,5,3,3,4,5,0 


Ende: 


MENU RESET 
END 


Menue: 


MENU STOP 

ON MENU(0) GOSUB Berechne ‚Kauf ‚Verkauf ‚Tendenz ,Bank ,Spiel,Ende 
s=NU ON 

R E TURN 

Pleite: 


WINDOW OUTPUT 6 

CLES 

FOR i=5 TO 140 STEP 3 
LINE (5,i)-(630,i),7 

NEXT i 

WINDOW OUTPUT 3 

CLS 

GOSUB Endmusik 

GOTO Ende 

RETURN 


Unentschieden: 


WINDOW OUTPUT 6 
CLS 
FOR i=5 TO 630 STEP 2 
LINE (i,5)-(i,140) ,7 
NEXT i 
WINDOW OUTPUT 3 
CLS 
PRINT "Nach 3 Jahren haben sie keine lust mehr" 
PRINT "ihr Geld aufs Spiel zu setzen ." 
PRINT "Sie erwirtschafteten "K-20000' GE in dieser Zeit !" 
'GOSUB Endmusik 


 GOTO Ende 


FOR i=5 TO 630 
LINE (i,5)-(i,140),7 
NEXT i 


"Sie haben in ";Monat"Monaten und ";jahr"Jahren" 
"ihr Kapital so erweitert,daß sie sich vom " 
"Geschäft zurueckziehen"; 
Endmusik 

GOTO Ende 


'musik 
Winner: 


FOR x=20 TO 3000 STEP 100 
SOUND x,1.1,40,0 
SOUND x,1.3,40,1 
SOUND x,1.6,40,2 
SOUND x,2,40,3 
NEXT x 
RETURN 


Loser: 


FOR x=3000 TO 20 STEP -100 
SOUND x,1.1,40,0 
SOUND x,1.3,40,1 
SOUND x,1.6,40,2 
SOUND x,2,40,3 
NEXT x 
RETURN 


Endmusik: 


FOR x=20 TO 1000 STEP 20 
SOUND x,.6,40,0 

NEXT 

RETURN 


Kapitalkurve: 

Altewertu=Ewertu 

Altewertk=Ewertk 

IF Monat=O THEN Altewertu=s5 :Farbe=Farbe+1 

IF Farbe=7 THEN Farbe=1 

Ewertu=Monat*30 

Ewertk=210-INT(K/190) 

LINE (Altewertu,Altewertk) - (Ewertu,,Ewertk) ‚Farbe 


RETURN 


WWWFEIRMECOMPUTERWORLD com 


Am einfachsten bestellen Sie 
mit diesem Coupon. 
Ausfüllen, abtrennen und 
ausreichend frankiert im 
Kuvert ab die Post an: 


CW-Publikationen 
Vertrieb RUN 
Postfach 40 04 29 
D-8000 München 40 


Ich verschenke RUN zum Bezugspreis von DM 68.— 
(12 Ausgaben), inkl. MwSt. und Lieferung „frei Haus“ 
Auslandsendpreis: DM 78.—, für die Schweiz sfr 74.— 
Luftpostversand auf Anfrage 


Adresse des Bestellers (Rechnungsanschrift) 
Name Vorname 


Straße, Nr./Postfach 


PLZ Wohnort 

Dean aaa — 
Adresse des Beschenkten: 

Name Vorname 


Straße, Nr./Postfach 


| \ Geschenk-Abo Bestellcoupon 


Macht Spaß, ist nützlich 
und kommt 12 mal pro 
Jahr ins Haus. Ein 
Geschenk mit bestem 
Erinnerungswert. 


CW ## PUBLIKATIONEN 


Krastarve 


zur Computerwelt 


ao 


Laufzeit des Geschenkabonnements: 


[] Das Abonnement soll sich nach einem Jahr 
automatisch um weitere 12 Monate verlän- 
gern, wenn es nicht acht Wochen vor Ablauf 
gekündigt wird, 
Das Abonnement soll aufein Jahr (12 Ausga- 
ben) begrenzt sein. 


Garantie: 


Ich weiß, daß ich diese Vereinbarung innerhalb von 
8 Tagen bei der Bestelladresse widerrufen kann, 

Zur Fristwahrung genügt die rechtzeitige Absendung 
des Widerrufs, Ich bestätige dies durch meine zweite 
Unterschrift. 


Datum Unterschrift 


Gewünschte Zahlungsweise: 


[] Bequem und bargeldlos durch Bankabbuchung 
Bankleitzahl (vom Scheck abschreiben) Geldinstitut 


Kontonummer/Inhaber 


Gegen Rechnung, zahlbar sofort nach Erhalt 


Wollen Sie kaufen oder verkaufen? Dann liegen Sie 


richtig mit Ihrem Angebot 


im RUNBOARD mit 


preiswerten Kleinanzeigen! Hier finden Sie alles 


Domain 
für AMIGAMS-DOS, a 
schon über 400 Disks MS-DOS. Tho- 
mas Meister, Am Baumacker 15, 6332 
Ehringshausen 3, Telefon: 06440/414 

C64 für Anleitungen 


Tauschpartner 
gesucht. Liste mit 0,80 DM Rückporto 
an: P. Sorrer, 1000 Berlin 10, Kaiserin 
Augustaallee 94 


Suche Sonstiges 


Suche defekte C16 od. VC 64! Zahle 
max. 50,— DM od. gebrauchten Plus 
4 bis 90,— DM (auch defekt 50,—DM); 
Telefon 02802/6341 nach 16 Uhr, 
übernehme Versandkosten bis 5,— 
Suche für C64 Spielepokes sowie Be- 
schreibungen wür „The Pawn“, „La- 
byrinth“, „V", „Hacker I+2* „Police 
Academy“ und „The Infiltrator* an 
Hans-Jürgen Jennewein, Im Steinak- 
ker 16, 6780 Pirmasens 

Suche Auflösungen für Adventurs- 
Spiele aller Art. Angebote bitte an 
Reichardt, Tulpenstraße 8, 8360 Deg- 
gendorf 


Tausche Software 


C64-128-Anwender sucht Kontakt 
zu anderen. Habe jede Menge Pro- 
gramme (Spiele + Anwendungen) 
zum Tauschen, suche Erfahrungsaus- 
tausch. Klaus Wolf, Neverdorf 6, 5203 
Much, Tel.: 0 22 45/48 37 
Earl Bernhard Turbo sucht Tausch- 
freunde für C64, Disk! Auch Anfän- 
er. Earl Bernhard Turbo, PF 10, A- 
372 Gießhübl, Disk + Rückporto 
beilegen! 101%ige Antwort! Hi Mala- 
ria, Bomb., MCG, DD, Yeti 


Tausche Hardware 


AMIGA 1000 (2 LW + Farbmonitor 
+ 1 MB RAM/max. 2,5 aufrüstbar + 
Maus + Joystick + 40 Disk) gegen 
Atari 1040 ST + Monochr. Monitor + 
Festplatte + Maus 

A. Gattinger, 0 81 39/54 44 


Suche Software 


Tausche 64er und RUN Diskett 
suche auch Amiga Software u 
ratur über Amiga sowie Programm- 
anleitungen. K. Seidler, 1000 Berlin 
33, Toelzer Straße 14 


Juni/87 


Suche für einen Plus 4 ein Pro 
et das CNC een simu- 
j ieren) mit Preis an 
Franz Sek. 08654 62130 von 18 
bis 21 Uhr 


Suche für C128 Programme aller Art 
in allen 9 Modi sowie Anleitungen, 
Bücher und Hardware aller Art, Liste 
an Ralf Sandforth, Hermannstraße 20, 
4790 Paderborn 


AMIGA SOFTWARE ** 06661/4931 
suche preiswerte Spiele. Nur Origi- 
nal mit Anleitung. Angebote an: 
Dietmar Kelkel, Seidelbastring 9, 
6490 Schluechtern 


Suche Hardware 


Suche für meine Drucker ‚Seikosha 
SP 1000VC" und „General electric 
TXP-8100 LQ” einen Druckertreiber 
für „VIZAWRITE CLASSIC" u. „PRO- 
TEXT“ Tel. ab 20 Uhr 0 64 08/6 21 02 
SUCHE C16 oder VC-20 (evtl. auch 
mit Erweiterungen) Niko Strunk, 
el.: 07 11/6555 01 nach 18 Uhr (Bit- 
te schnell) Tausch von C64 Anwen- 
dersoftware 


Suche für C64: Floppy 1541 + Druk- 
ker (egal welche Marke)! Keine Hor- 
ror-Preise!l Angebote an: Ändreas 
Honczek, Heerstraße 213, | Berlin 20 
CBM 8280, CBM 9060, CBM. 4023, 
MPP 1361, CBM 601 gesucht, Ange- 
bot an: Szymaniak, Königstraße 2], 
4478 Geeste 3, oder Telefon 0 59 07- 
459: wer hat Programme für CBM? 


SUCHE 
C64 defekt! 
Zahle 100 DM 
]. Bahmüller, Tel.: 0 77 46/25 34 


Verkaufe Sonstiges 


Für NEWSROOM Deutsche Anlei- 
u 44 S. (A4) mit Bildern (Clip-Art S. 
1+2) für 064/128, Apple, IBM. 1A- 
Qualität. Gratis dazu ca. 200 Spiele- 
pokes für 064. Preis 20,— inkl. Porto 
NEWSROOM-BILDER Zusammen- 
stellung von Olip-Art-Disk S. 1+2 so- 
wie S. 3+4, auf jeweils 12 A4-Seiten. 
Preis 5,— bzw. 10,— (für alle 24 5.) 
inkl. Porto, per Verr.-Scheck oder 
bar. W. Neumayer, Rüppurrer Stra- 
Be 94, 7500 Karlsruhe ] 


Für FLIGHTSIMULATOR I Deut- 
sche Anleitung 41 S. (A4)+4 Flugkar- 
ten (A3) mit Koordinaten aller 80 Flug- 
plätze. Gratis dazu ca. 200 Spielepo- 
kes für C64. Preis 20,— inkl.Porto, per 
Verr.-Scheck oder bar. W. Neumay- 
er, Rüppurrer Straße 94, 7500 Karls- 
ruhe 1 

Für PRINTFOX Zusätzliche Grafik- 
bilder und 25 neue (selbsterstellte) 
Zeichensätze auf Disketten. Gratisin- 
fo bei W. Neumayer, Rüppurrer Stra- 
Be 94, 7500 Karlsruhe 1 


N EEE END. COM 


BOA 


Vordrucke. In diesem Heft finden Sie unsere Karte 
auf Seite 131 Für weitere Informationen können Sie 
Marianne Gad anrufen, Tel. 0 89/3 60 86-201. 


Anzeigenschluß der nächsterreichbaren Ausgabe 
ist Mittwoch, der 10. Juni 1987. 


RUN’S Verkaufe RUN-Ausgaben 5 

84 bis 1/87 und 64er 8/84 bis 12/86 
Melden bei Teddy, Tel: 02851, 
61 34, Suche Kontakt zu AMIGA- 
Usern; Akustikkoppler S 2ld zu ver- 
kaufen 


Elektr. Bauteile , ca. 3/4 kg (Wid., 
Kon,, Trans., Dioden, IC's, Poties 
uvm) wegen Hobbyaufgabe für DM 
20,— inkl. Porto. E. Büchner, Mühlen- 
straße 53, 2080 Pinneberg, Postgiro- 
kto.: Hmb. 35 50 44-202. 
NEWSROOM 

Deutsche Anleitung mit allen Bildern 
15,— DM. Alle Bilder der Erw.-Disk 
3+4 zus. 10,—; Oliver Tresselt, Geu- 
lenstraße 98, 4040 Neuss, Tel.: 
0.21 01/54 4763 

Kreativ mit kleinen Computern 
Das richtige Handbuch für alle Leh- 
rer, die mehr als einen BASIC-Kurs 
machen wollen! 142 S., 24,— DM; Paul 
Tresselt,Geulenstr. 98, 4040 Neuss ], 
Tel.: 021 01/5447 63 


Verkaufe Disketten 


ACHTUNG/ACHTUNG CB54 Soft 
ware; Verkaufe Adventure + Äction- 
Disks; Ruft doch einfach mal an: Tel.: 
04 51/62 46 32 


Verkaufe Hardware 


C16/64 KB + VC1541 + VC1520 + 
OA + AS. + Joy + 35 Spiele (13 MA 
Stertronic, Mercenary) = 750,— DM. 
Abholen bei Frank Meyer, Kir- 
chenstr. 8, 2110 Buchholz, Tel. 
041 81/393 79 


Wichtig für 610er-Besitzer! Zusätzli- 
cher Betrieb der orig, 1541 am Com- 
modore PC 610 durch Auswechseln 1 
Eproms. Nähere Information gegen 
Porto von: H. J. Zink, Kamperstr. 27, 
51 Aachen 


SAHAUBODNOT) an pie) FE En 
Centronics-Interface WI-64 zu ver- 
kaufen. Hardcopybefehle auf Tasten- 
druck 80,— DM, Tel. 0 69/78 27 18 ab 
18.00 Uhr 

Verkaufe CBM4032 + Exbasicle- 
ve? CBM4040 Doppellaufwerk, 
CBM4031 Einzellaufwerk, Kabel 
dazu, gegen Gebot, Tel. 094 54/ 
244Q, mögl, nach 19.00 Uhr an 
Selbstabholer. 


*'k Sicherheitssystem *** aus 64er 
SO 14/87 für bis zu 7 Betriebssysteme 
in einem Eprom 27512, auf Wunsch 
auch gebrannt, VB 60,— DM inkl. 
Eprom. TEL. 0.28 51/75 % ab 16 Uhr 


EIDEOTELNE DEN VLOSe DA 
Turbo-Betriebssystem für Datasette 
mit Funktionstastenbel. Kompatibler, 
da kein Speicherverlust, Mit Um- 
schaltplatine und Einbauanl. für DM 
50,— zu verkaufen, Tel. 0 2851/75 % 
ab 16 Uhr 


Verkaufe Drucker GP500VC NEU 

Papier Druckerständer 220,— DM, 

Final Cartridge neu 90,— DM, Heinz 

Portz. Huenweg 2, 6967 Buchen-Goet- 
n, Tel. 062 81/41 44 


Verkaufe Drucker CP80X anschluß- 
fertig an CP80X, sehr guter Zustand, 
zus. 2 Farbbänder, VB 480,—, Tel. 
0 80 26/5 87 77 oder 21 08 


Achtung C128- u. C64-Besitzer! Ver- 
kaufe Floppy 1570 wegen System- 
wechsel, % Jahr alt, kaum BRAUN. 
da Zweitfloppy, für nur DM 369 


(NP: DM 500), TEL: (05971) 
85717 
Verkaufe mein Freeze Fra- 


me MK3B + Utility, Diskette V2 für 75 
DM und Magic-Formel für ca. 150 
DM. Schreibt an: H. Pesch, Kempe- 
ner Str. 18b, 3138 Heinsberg 


Verkaufe * AMIGA 1000 ** 512 
KB, mit Handbüchern und Amiga- 
Buch von M&T, mit oder ohne Moni- 
tor, Kickstart + Workbench 1.1 + 
1.2 ** Preis VB ** mit Soft- 
ware ** AMIGA ** Tel. 07141/72588 


ANaKe SE a Eee 
C64, 2x 1541, Final Cartridge, Ma- 
gic Formel, Drucker GPI00VC, 
Quick Data Drive, Monitor grün, 200 
Disk. und Zubehör, VB: 1500, Tel. 
0.21 63/8 09 36 nach 15.00 Uhr, Detlef 
Wegener, 4055 N’K 2 


NV SOGETOEE Re 
#i* 0.128 + 1571 950,— DM *** 
Farbmonitor Orion CCM-1280 500,— 
DM m. Anschlußkabel. Michael Goe- 
decke, Hafenstr. 19, 3301 Walle, 
0 53 03/54 35. Alles neuwertig. 


Sie kennen 801-Expert nicht?? 

— Es druckt deutsche Sonderz, 

— Es druckt Unterlängen (z. B. hN 

— Hardwaremäßig, leichter Einb, 

— Volle Kompatibilität bleibt! 

— Keine Druckerverlangsamung 

— 801 Expert setzt neue Maßstäbe 
des MPS-801 für nur 29,90 DM 

Info und Probedr. bei Michael Bil- 
ges, A.-B.-Str. 169, 75 K'he 21 
Verkaufe Anwenderprogr, Mathe- 
mat., Hausverwaltung, Directory64 
und Charde f. Zeichengen., Bücher 
wie Druckerbuch, Lexikon zum C64 
und 64er Programmsammlung, an 
Martin Geiger, Keltenweg 15, 7850 
Lörrach 7 


The Final Cartridge (Milan) orig. für 
75,— abzugeben, Tel, 028 41/941 17 
ab 17 Uhr 


BENLEUN AT Fe 
256 K RAM für C64! Platine 15,—, 
Bausatz 35,— (0. RAM’s) + Software, 
z. B. Printfoxerweiterung auf DIN A4 
+ Mehrfachdruck, G. Frömel, In den 
Wingerten 55, 6100 DA 23, T. 06160/ 
81834 

C64 mit Datasette DM 290,—, KDC 
FT-5002, NLQ, Proportionalschrift, 
EPSON kompatibel, mit MERLIN 
Face C+, fast neuwertig DM 850,—. 
Tel.: 089/3 54 16 62 


DRUCKER Restposten STAR STX- 
80 180 DM, Centronics GLP2 mit 
Traktor 395 DM, alle mit Centronicos- 
Anschluß: Centronics zu Userport 29 
DM, Seriell-Interface für C128/64 für 


79 DM: Verk. auch Module, Epro- 
mer, 256 KByte Karte, Multimeßge- 
rät, IC-Tester, RS232-Schnittstelle 
(Drei-Draht-System) u. v. mehr, Info 
bei Jürgen Ehrhardt, Schumannstr. 9, 
6780 Primasens, Tel. von $a.—So, 
0 63 31/4 14 75 

Thomson TO9 mit Maus und Light- 
pen, absolut neuwertig, wegen Um- 


stellung abzugeben! DM 1150,—, Tel 
061 72/2 80 8 


CNC auf C64 * Dreh- + Fräsprg. + 
gute Grafik + komfortable Editie- 
rung/DFÜ-Terminal — Mailbox — 
Modemsoft. Info 80 Pf, bei Bernd Jan- 
zen, Meßkircherstraße, 7795 Kreen- 
heinstetten 

Verkaufe billig intakte Floppy 
1541!! Tausche auch Programme 


(Disk-Tape)! Angebote an; Ändress 
Honczek, Heerstr. 213, 1000 Berlin 20 


45,— Sprach-Digitizer 45,— Der De 
kannte Digitizer aus der 84er 10VEE 
mit Betriebsoft für nur 45,—! Sofort == 


rufenll! = 0221/6831529. Verlam ar 
nach Andre! 

Verkaufe C64 + Floppy 1541 - Far 
monitor 1701 + Speeddos + Mezıc 
Formel (alles originalverpack) - 2 
Joysticks + 200! Disks randvo 
teratur, DM 1200,—, 070 82782 
18 Uhr 

AMIGA 1000 (2 LW + Farbmn + 
1 MB + Maus + Joystick) pl== Epson 
]X80 Farbdrucker, plus Enson FI 
Farbplotter, beide en = 
ga CAD. Tel. 0813/8442 Pres 
4300,— 

!Zu verkaufen! Cö4 - + 1541 + 


- Turbo- 


+ Dela-Eprommer I 
+ ca. 300 Disks und noch vw 
VB 2050 DM*TEL.: 02238 
19 Uhr 

ZU VERKAUFEN! Cö2 - 1541 mit 
TURBOTRANS 3.4, 512KB + MPS 802 
(Grafik-ROMs, 8/9 Nadel) + DELA- 
Eprommer II Zub. + Monitor (Farbe 
1701) + 250 Disks und noch mehr** 
Preise günstig! Nachfragen * Tel 
0 22. 38/26 04 


Bi Gratis-Programme!  C128* 
Free-Software Computer Club, 
Ruf der Heide 18, 3008 Garbsen 
*** Jahresbeitrag 15 DM. *** 
*kk INFO gegen Rückporto, *** 


Verkaufe Origin.-Software Spott- 
preise C64/Tape, suche vollfunk- 
tionstüchtige C18/C116 bis 50 DM, 
suche Fasttracks C64/Disk. Einfach 
mal anrufen, Tel. 0 70 51/1 28 68 


tzerin engl. übersetzt günst. 
Instruktionen f, Computerspiele etc., 
30 Pf, je Zeile (50 Schriftzeichen), 
Schüler 20 Pf., inkl, Schreibauslagen, 
Telefon 0 21 35/4 94 91 


C16-, C116-, Plus4-Anwender, -Ein- 
steiger: Endlich ein Club speziell für 


Bauerland 15 ee 


Verkaufe Software 


EROTIEA — auerge wöhnl. Adven- 
£ , d 


ca "7 


GIS SPIELEFAKET 6 ORIGINAL 
SPIELE (neu 100 DM) oder 3 SPIELE 


+1 MMODORE-JOYSTICK 2 50 
DM Vorkasse (NN + 5 DM). PGA, 
= Kontonr. 4091 23-209 


cıs, C118, Plus4 — Superspiele! Info 
ickporto bei Hannes Kalten- 
jelmayerstr. 16. 7990 Fried- 


MIRSE-KLASSENVERW. (SS-Dat/ 
Kurslisten/Zeugnisse) jetzt zum Son- 
derpzeis für 60,— DM/BJS für Vr 
DM. W. Müting, Siemensstr. 4, 
Lippstadt, Tel. 029.41/1 02 25 
MRSH-SCHULVERWALTUNG jetzt 
such für den PC128 (80 Z.). Info ge- 
Ban bei W. Müting, Sie- 
4, 478 Lippstadt, Tel. 029 41/ 


= Amiga-Superb.-Datenbank *** 
erweiterbar/kein Suchen mehr im 
Am üga-Mag. /68000er. Abg. zum 
Selbstkpr. 20,—/Superbase muß 
vorh. sein. Goedecke, Hafenstr. 19, 
3301 Walle 


C16/116/+4 Verkaufe meine Origi- 
nalsoftware auf Kassette! 30% billi- 
3 als Neupreis! Liste gegen 50-Pf.- 
riefmarke von Markus Mehlau, 
Schönhardtweg 9, 7165 Fichten- 
berg!!! Auch Tausch!!! 
#iekick Barwert VO *Hkk* die gängig- 
sten Berechnungen inkl. Umrech- 
nung in Werteinheiten und Beitrags- 
aufwand sowie Druckerausgabe: DM 
75—. INFO: Graf, Postf. 44, 7806 
March 


JACKPOT-STAR: Die Super-Geld- 
spielautomaten-Simulation. Für nur 8 
DM kommt die Diskette ins Haus. Be- 
stellen bei: M. Oelschläger, Ber- 
nardstr, 58, 6050 Offenbach 


C64/128-FIBU-Programm für DA- 
TEV-Kontenplan, mit Handbuch, DM 
139,—, Handbuch (Info) gegen Porto 
DM 3,—. Andreas Brandt, Magistrats- 
weg 79,.1000 Berlin 20, Tel. 0.30/ 
366 93 02 


840 Pokes für nur 10 DM!!! 540 Sup- 
erpokes + 300 Prgpokes. Dieses ver- 
spricht ewige Leben beim Spielen. 
Sehein an ©. Lindhoff, Am Schelmen- 
graben 7, 6120 Michelstadt 


C64 WARSHIP VERKAUF ODER 
TAUSCHE {. g. Kampfgruppe usw. 
Sim von Japan, Amis Pazifikkrieg 96 
Schifftypen. Treffmeldungen wie Ru- 
der, Geschutz, Elek, Radar, Deck 
usw. sehr genau. Sim. Original. Er- 
schienung 87 

* THOMAS-SOFT*TSAMADOU 4* 
10683 Athina*Greece, Orginal Ga- 
mes for your C64. Write for free list, 
programs in tape-disk 
THOMAS-SOFT * TSAMADOU 4 * 
10683 Athina*Greece*Software Com- 
modore*The News Room*Flight. Si- 
mulator*jet*Fast Hackem 4.LA- 
*Pornos*Only new software tape or 
disk. Write for free list. 


+ C-64 Simons Basic Modul + inkl. 
Hand. (engl) nur 17,50 DM. Die 
Schlümpfe nur 10,00 DM. Disk./Kau- 
fe Orig. C128-Prog. Suche Peetspeed 
C-128. H. Blöhm, 8391 Schlinding 7 


C-64SOFTWARE: Neugestaltete 
Game-Disk-I mit 20 Prgs./Alles Ei- 
Beie Soccer 2 (z. B.: Heimlich & Co,, 

ele-Soccer)/20-DM-Schein geg,. 
Disk an: G. Meuser/Fragenhütte 7/ 
4052 Korschenbroich 1 


DATEI-ASS-128 + LOTTO-ASS-128 
für C128/80 Z. Disk je 30 DM. Kurzin- 
fo gegen Rückporto von, Peter Hiel- 
scher, Am Wall 22, 4401 Saerbeck. 


C16/C116/Plus4Software Verkaufe 
wegen Systemwechsel Spiele, Bü- 
cher, Adapter, Joystick, 50 % Ermäßi- 
sandkosten, INFO: 09 11/ 


** Textvera 


arbeitung für C-64** 

T für 
Ihren C#54 & VC 1541 und verschie- 
dene Drucker (MPS 801, Star NL-10u. 
a. bereits angepaßt). Ändere Anpas- 
sungen sind mit einem mitgelieferten 
Hilts 


1; gramm kein Problem. Beson- 
der Funktionen des Programms: 80- 
Zeichenkarte, WordWrapping, For- 
matieren, varibale Textbreite, Win- 
ie echnik, Rechner, Adreßver- 
raltung, MPS801: Umlaute + Unter- 
irn Das alles für nur 49 DMI! 
jeitere Infos bei: J. Heybrock, Kie- 
14, 2117 Tostedt, 041 82/ 
17 Uhr. 


-BESTIMMUNG 1. 
C16/116 (64 K), Plus4, C128. Kass. 
oder Disk. DM 29,80, Vorausk. + 
250/NN + 6,00. Ruth Mogalla, Post- 
fach 55, 8574 Neuhaus/Peg. 


NEU * CNC-Simulation f. C64/128 zur 
Aus- u. Weiterbildung. Nach DIN 
65025. Disk + Anleitung DM 65,—, QS 
450—, CNC-Kurs DM 50,—, OS 
350,—. Info u. Verkauf: FRE (64) 
CLUB, Postfach 45, A-5620 Schwarz- 
ach 

NEU KREUZWORTRÄTSEL {. C64/ 
128 zum Erstellen u. Lösen von Kreuz- 
worträtseln. Mit 50 Rätsel Disk DM 
D— 210,—. Info u. Verkauf: FRE 
(64) CLUB, Postfach 45, A-5620 
Schwarzach 


Liste gege 


sen 
*kkk AMIGA Public-Demem 

Fish-Disk Public-Domain 
30-53 und 7 Disks aus 
Amiga Serie, V-Schec } 
Uwe Schmielewski, Haro 71, & 
ek 1, Tel, 02 03/37 64 48 ab 18 

hr 


Californien Public-Domain 30 Stck 
First Amiga User Group Disks für 
175,— DM V-Scheck an Uwe Schmie- 
lewski, Haroldstr. 71, 41 Duisburg 1, 
Tel. 02 03/37 64 48 ab 18 Uhr 


CasaMiAmiga BBS & Amigus & 
AMuse Public-Domain Disk 30 Stck, 
für 175,— DM V-Scheck an Uwe 
Schmielewski, Haroldstr. 71, 41 Duis- 
burg 1, Tel. 02 03/37 64 48 ab 18 Uhr 


250 Disketten mit Public-Domain 
von Fish, Faug, Amicus, CasaMiAmi- 
ga, BBS, Panorama, AMuse, Info-Disk 
mt Prog. 10 DM an Uwe Schmielews- 
ki, Haroldstr, 71, 41 Duisburg 1 


Die ersten 30 Fred Fish Disk für 
160,— DM V-Scheck oder Tausch ge- 
gen PD-Soft an Uwe Schmielewski, 

aroldstr. 71, 41 Duisburg | ab 18 
Uhr, Tel. 02 03/37 64 48 


Super Digi Hires Show — C64 — nur 
f. Erwachsene! Folgen 1+2 auf Disk 

= 10 DM; Folgen 1—8 = fast 100 T.W. 
Farb. Pics = 20 DM, Porto & Verp. 
inkl.; Nachn. + 5 DM, bestellen bei: 
APHROSOFT, Westring 27, 4060 
Viersen 12 


Brandneue Sozialserie C64 + C16! 
Ber. v. Alg-S. Hilfe + Tips (Typ = ?), 
Disk = DMf. 64 + 16/Tape = DM 16. 
Vieles andere a. Liste (&rBber)rLiefe- 
rung nur gegen bar > von* 
SPIK- A025708 * 511 Alsdorf 1< 


Original Microsoft Multiplan für 
den CBM 128 zu verkaufen. Hand- 
buch und 2 Disketten kompl. für DM 
100. Telefon 0 75 51/55 21 ab 18.00 


C-64*C-128*MS-DOS* Verkaufe und 
tausche Programme. Viele Program- 
me. Listen oder Forderungen an: Fa- 
bio Farina — Via Puglia 15 — 1-20052 
Monza (MI) — Italien 


Rentenberechnung (BFA, LVA) auf 
dem C64/C128l Bewährtes Pro- 
gramm mit den aktuellen Werten — 
anpaßbar an künftige Jahre! Info geg. 
4— DM: H.-G. Runkel, Bicken- 
bachstr, 62, 5270 Gummersbach 


DISKSTICKER druckt Printshop — 
Zeichen in versch. Größen, Kann 
auch Bilder aus Printshop, News 
room, (C64) in Text übernehmen. 
Gratis-Info bei HOFFMANN R./Mon- 
dorferstr. 9/L-5552 Remich 


** 064 Dialog C64 ** 
Das Stundenplanprogramm 
*#* für alle Schulen *** 
H. Koster, Eschenweg 11, 54 Koblenz, 
Tel. 02 61/4 42 24. Info gegen Frei- 
umschlag. 


Brot a 


ürdieWelt Postgiro Köln 500 500-500 


VERNEHONESSMFTTTERWOR.S.CON 
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” 


GEWERBLICHE 
GELEGENHEITEN 


Zählt für Sie jeder Millimeter? 

Als Geschäftsmann für wenig Geld in RUN 
präsent sein. 

Und so wird es gemacht! Schicken Sie uns Ihren 


Text mit der genauen Firmenanschrift. Pro ange- 
fangener Zeile (1 Zeile = 33 Anschläge) berechnen 


wir DM 7,— zzgl. ges. MwSt. Sie können Voraus- 
kasse per Scheck leisten; wir schicken Ihnen aber 
auch jederzeit eine Rechnung. Weitere Informatio- 
nen gibt Ihnen gerne Marianne Gad, Tel. 089/ 
3 60 86-201. Anzeigenschluß der nächsterreichba- 
ren Ausgabe ist Mittwoch, der 10. Juni 1987. 


Biete an Software 


Bücher und Software für Apple, Ata- 
rn © 54, 128, Schneider; Preisl. (mit 
über 450 Angeboten) gegen DM 1,10 
in Briefmarken von: Bücher- und Soft- 
wareversand, Altenrond 20, 7821 
Bernau 


ACHTUNG! C-64/128 ACHTUNG! 
Erstkl. Programme schon ab 1,—, 
2,—, 5,— DM! Kompl. Programmpa- 
kete auf Disk ab 9,80 DM! Alle Berei- 
che; Mathe, Anw,, Arcade, Lernen, 
Advent. etc.(!) Heute noch GRATIS- 
Katalog mit vielen Listings und Tips 
anfordern! Oder für 1,— DM 
chen EEE .  Kennenlernange- 

t anfordern. Sie erhalten eine dop- 
pels., randvolle Diskette mit Pro- 
grammen! (Echt stark!) Schreibt an 
MULTISOFT Abt. U/R. Scheitza, 
Holsterhauserstr, 331 in 4690 Here |. 
Heute noch! 


C 64 SUPER- 
EINTIPPHILFE 


für das Abtippen von Programmen 
aus Zeitschriften (BASIC). 
Spart ca. 50 % Zeit und Arbeit, 
PRG + Anleitung nur 10,— DM bei 
R. Pieroth, Postfach 14 96 
6052 Mühlheim/Main 


*Neu! Einkommen-/Lohnsteuer 1987 * 
084/128. Alle Einkunftsarten. Ausführliche 
Anleitung, Auch f, 1986 lieferbar. Disk 69 DM. 
Beide Pror. 89 DM. Info 1,50 DM. Dipl.-Finw. 
G. Bohnenkamp, Meißener Doristr. 3a, 4950 
Minden, Tel. (05 71)3 38 55 ab 19h. 


+ Software auf Disk für C6 **** 
Diaverwaltung 49,99 DM. Ordnen, 
finden, sortieren, verknüpfen v. Be- 
griffen. KGB kontra CIA 11,99 DM 
Grafikadv,, 40 Räume u. Orte. Ägent 
sind Siel Grammatica 29,99 DM 
Weltraumspiel und Lemprogramm 
zugleich! Informationsm. gratis! Be- 
stellen bei SVS Scholz, 5628 Heiligen- 
haus, Marienburger Str, 20. Versand- 
kosten 1,30 DM. Versand gegen 
Rechnung! 


- MM Aufigepaßt und zugefaßt: um - 
SCREEN-LIGHT (Disk) 49,— DM 

m Profitool für Laien. Diverse An- I 
M wendungen: von Actiongrafik — M 
- Zeichentrickfilm. Hardcopy - 
m SPRITE-LIGHT (Disk)..89,— DM u 
m Von Fachzeitungen sehr gut be- g 
M urteiltes Grafikanimationsprg. 0 
M Info = Rückporto, Versandk. = I 
M 3—, W. Zunker & Uwe Hassepaß I 
_ G.b.R., Postf, 62 07 26, 1 Berlin 62 
VC 64/128 H 


88 GW Juni/87 


* Lohn- und Einkommensteuer * 
Super, Jahresausgleich+Steuerkl.- 
wahl+ Rentenertrag+ Änalyse! 

*%* C64/128+IBM ** Kass. 60,— DM, 
Disk. 70,— DM. Info gg. RP. Jährl. 
Aktu. 10,— DM! Horst lichen, Nieder- 
felderstr. 44, 8072 Manching, 0 84 59/ 
1669 


Computer Hard- & Software 
Werner Wohlfahrtsstätter 
Postfach 30 10 33, 4 Düsseldorf 


C64 z.B. 

Destroyer 39,90 

Super Cycle 29,00 39,90 

TopGun 29,90 39,90 

Trivial Pursuit(deut) 38,00 44,90 

Amiga z.B. 

Shanghai 69,00 

Super Cycle 59,0 

C16z.B. 

International Karate 19,50 

Karate King 19,50 

Utility C16 (deutsch) 19,00 

Farbbänder z.B, 

MPS 801, Seik0550, GP500a 10,50 

MPS802 12,50 

Epson MX80, FX80, MX90, LX80 12,50 

Modem 

DataphonS2]-2 ab 229,00 
Katalog RUN 6/87 anfordern 

Bitte unbedingt Computer angeben 


= = B MULTIBEASE 5 5 5 
vollautom. Datenübertragung von 
dBase II nach MULTIPLAN für C128, 
jetzt neu auf CP/M für 199,—! Info 
über Tel.: 0 79 40/29 70. 


Lohn + Gehaltsprogramm F. CBM 
64 und andere. vk. Info + Demodisk 
von F. Spiess, Turbinenstr. 4c, 6800 
Mannheim 31, Tel.: 06 21/72 15 15 


SCHULMEISTER 64 (C64/128) 
m Die komfortable Noten- und Klas-g 
M senverwaltung. 5 Fächer pro 
. Klasse (mündl./Kurztests/Arbei-M 

ten). Gewichtung frei wählbar. 
m Version für Viertel- oder Zehntel-g 
M noten lieferbar. BRD/’u 
m SCHWEIZ) Info geg. Freium-M 
EM schlag. M Heber-Knobloch, Ger-M 
D hardtstr. 19, 7032 Sindelfingen 


Vereinsverwaltung C64/C128 
Mitgliedslisten, Bankeinzug, Rech- 
nung, Aufkleber, Rundschr., Kasse, 
79,— DM, Info gegen Freiumschlag: 
1S-SOFT, Bergf. 21, 8261 Tittmoning 


Sie nicht ALLES den 
Steuerbehörden! Berechnen Sie Ihre 
Einkommen- bzw. Lohnsteuer selber 
mit dem C54. Programm auf Diskette 
49,— DM (Kassstte 39,— DM) gegen 
Vorkasse (Scheck) oder Nachnahme 
+ Gebühren, mit ausführlichem 
Handbuch. zzgl. 5,— Versandkosten. 
HVZ-Software H.J. Voß, z 
Im Wiesental 3, 5880 Lüdenscheid 


WENNS TER WOR.D.EONR 


Nützen Sie die gewerbliche RUN-Gelegenheit! 


*COMMODORE BUSINESS x 


PC-FIBU ab 199,— 
C64/128FIBU ab 99,— 
C64-Kunden-/Lief.-Buchh. 89,— 


C64/128-STAR TEXT/-DATEI 
Katalog DM 3,—, Fa. Lücker/RU 
R.-Wagner-Str. 71, 6239 Kriftel 


Vereinsprog. 100% Maschinenspr. 
kompl. Stat., Buchf., Text, BEinz 


C64 900Mtgl 98DM 
C128(802) 900 Mtgl. 128DM 
C128(802) 1800 Mtgl. 168DM 


Fa.K.-H. Weiß, Aktienstraße 170 
4300 Essen 11, Tel.: 02 01/67 54 59 


VERKAUFE: (64/3 Betr.-Syst. DM 
250,—, MPS 802/Graf-Rom +Staend 
DM 320,—, 1520 + Zubehör DM 160, 
PP64 (Merlin) DM 220,—, MAGIC- 
FORMEL (neu) Drn 170,—, 80 Z-Karte- 
+Geh. (Jann/B.) DM 160,— uVm. Te- 
lefon: 0 61 62/59 03 


Hallo Schweizer Computer-Freaks! 
Commodore Atari MSX 

Schneider IBM Compatible 
Software und Accessories 

Günstige Einkaufsquellen/ 
Programmierer gesucht. 

Info bei MARCO Moor/Postfach 41 
CH-5603 Staufen 


Kind nie sich selbst! Es 


Guter Onkel - 
schlechte Gesellschaft? 


Der wunde Punkt! 
Vertrauen in Erwachsene darf braucht Sie - sonst orientiert es 
nicht in Vertrauensseligkeit um- 
schlagen. Überlassen Sie Ihr 


2 


KENNEN 


C64 + Software = SF-Soft x 
Anwenderprogramme, Spiele und« 
Pro -Hilfen zu Minipreisen!!! « 
Mr. Money DM 19,90%« 
zwaltung für Vereine, * 
xg mit Maus möglich! Be 
Profi-Maker DM 10,00% 
Zum Einbau in eig. Programme, x 
macht Ihr Programm profilikel « 
Fordern Sie noch heute unseren* 
Gesamtkatalog an: SF-Soft Mühlen-* 
weg 7, 3401 Seulingen. Bitte legen 
sie &0 Pi. Rückporto bei. Vielen 
Dank « 
Programmautoren gesucht * 


Beer een nenne 


* 
KERKEKEKKHNKKEKNEENK 


C64/C16/Plus 4 -techn. Mathe, 
Schulanw. u. Grafikprg. zu reellem 
Preis. Katalog 1 DM Briefmarke — 
Computertyp angeben! Softvers. A, 
Ristau, Peetzweg 9, 3320 Salzgitter 1 


= Dias ordnen mit Computer M 
C64, C128, CPC, JOYCE, IBM-PC 
und Kompatible. Info gegen Rück- 
porto bei: Dipl.-Ing. Walter Grotka- 
sten, Bimenweg 6, 7060 Schorndorf, 
Tel.: 071 81/4 28 46 


WALTON MASTERS. MUNCHEN 


sich an anderen, die vielleicht Ihr 
Kind mißbrauchen. Wer in unse- 
rem Land etwas für Kinder 
tut, tut das Beste für die 
Zukunft. 


Fragen Sie uns - wir helfen weiter. Helfen 
auch Sie mit - durch Ihre Spende: PSchAmt 
München, Kto-Nr. 440 809. 


Deutsches Kinderhilfswerk e. V. 
Langwieder Hauptstr. 4, 
8000 München 60. 


Das Deutsche Kinderhilfswerk e. V. dankt für die kostenlose Einschaltung dieser Anzeige. 


VC64/PC128 Programme. Viele Son- 
derangebote. Katalog von OLDI- 
SOFT, Postf. 1132, 2190 Cuxhafen 12. 


C64 100fach bewährte Programme C128 
BAUFINANZIERUNG Bsv,LV,Hyp. DM129 


LOHNST/EKST 1986, alle Eink. DM 69 
VEREINSDATEIListen, Lastschr. DM % 
FINANZBUCHHALTUNGkomfort. DM 89 


HAUSVERWALTUNG, Abrechnung DM 99 
INFO: KLAUS HEIN, SALZSTR. 28A 
8950 KAUFBEUREN, Tel.: 083 41/8 1357 


Der Software und Zubehörversand 
Buss BBEEEEENBERBBEN 
WIR LIEFERN NEUE SOFTWARE FÜR 
Commodore C-16/C-116/PLUS 4 
C-84/C128/AMIGA, Schneider, 

zu Preisen. 


Atari 
Liste „bei BERLAU SOFT 
Postfach 14 15, 2150 Buxtehude 
Computer Type angeben. 


DISKETTEN mit Garantie 
5%", 48tpi, DM 0,97, 2D 
3%" ‚18Stpi, DM 2,70, 1DD 
31a", 135tpi, DM 2,952DD 
3Markendisk. DM 7,20, 2CF 
Allgem. Austro-Agent. Ringstr. 10 
D-8037 Eching, Tel.:0 81 33/61 16 


Biete an Hardware 


Nemesis D/K 32,—/24,— 
29,95 

19,95 

Vorkasse 2,50, NN 5,—, kosten- 

lose Preisliste 

SOFT-CORNER, Marktstr. 4-6 

4300 Essen 11, 03 01/67 70 84 


Joystick Magnum 
Fuji MDl0farbig 


Verkaufe: *FAKTUSTAR 64/128* 
Rechnungen / Angebote/ Kassen- 
buch/Lager + Leistungsdatei/ kiven 
tur u. Adressendatei. Für C64 D 


Elektr. + elektronische Geräte, 
Bauelemente +\Verkzeuge 


ELECTRONIC VON A- 


Stresemannstr. 95 - Berlin 61 ”° 
Telefon (030) 2611164 & 
WERNE IE 


Benützen Sie für 
eilige Anzeigen 


unseren 
Fernschreiber 


5 215 350 comw d 


_—__z 


400 Zeichen/Sekunde 
Duty“ Perborafkarueker 


Interface nur ungk aubiche DEE | 
3290,— zzgl. MwSt 

DCS, Zedernweg 22 

6272 Niedernhausen 

Tel.: 061 27/21 56 


GEISLER DÜSSELDORF- ZI LETE0E1 
Unsere Preise im Mai — zeciz en 
wandfrei:TANDON TARGET 

4Q+ PCA 70 sofort 


RAM, DB Fan) R 
DORE AMIGA 2000 zu 
Anrufen, hören und 2 
500 kommt ca. Ende Mae 
DM::NEC P6 1299 -— 
+ M1709 ab Lager 
TB Be of 0m ms 
1698 DM; .80 MB 243 DM 
"FLATSCREEN 14 " M 
DM:EGA SIGMA 698 D 


che Pfingsten:;Ihre GESIER GmbH 
Leostraße 1::D4000 Düsselsc=! IT-E7- 
LINE (02 11)57 80 81 


DATAPRODUCTS sum, 
Zeichen/Sekunde, vol Eu 
phics-kompatibel, ! 

pro Zeile, incl. Ce 
face nur unglaubliche 
1390,— zzgl. MwSt 

DCS, Zedernweg 22 

6272 Niedernhausen 

Tel.: 061 27/21 55 


Wingertstr. 114 


Landolt Gomputer 


Beratung, Verkauf, Service, Leasing 


6457 Maintal-Dörnigheim 
Tel. 0 61 81/4 52 93 (Mailbox 48884) 


TEOBE Computer- und Zubehörversand 


Ca C128-Dkomp. DM1179,— 
u 5 GEOS DM 438,— 
» DM 485.— 
D DM 110,— 
lusm. FCopy DM 145,— 
komplett DM 848,— 


gegen 3,— in Briefmarken 

Wi Sähren alles von A bis Z 

TEOBE COMPUTER SYSTEM’S „TCS“ 
2085 Quickborn, Pinneberger Straße 93 
za Händen Herm Th. Mense/Bein. 


C-16/116 Hardware (Plus/4) 64k: 
Bausatz DM 45/Service DM 65 
Supererweiterung UNEX-16 DM 195 
Info anfordern bei S&J HAAS Vohen- 
straußerstraße %, 8480 Weiden 


SUPERKNÜLLER! 
DATAPRODUCTS 8012, 180 
Zeichen/Sekunde, voll IBM-Gra- 
phics-kompatibel, incl. Centro- 


nics-Interface nur unglaubliche 
DM 7% ,— zzgl. MwSt. 
OS, Zedernweg 22, 
8272 Niedernhausen 
Tel.: 061 27/21 56 


C64 C128 VC20 User Achtung! 

mit Programmen und dt 
Anleitung nur DM 49,— Versand ge- 
gen Scheck/Nachnahme. Fordem 
Sie unseren kostenlosen Commodo- 
re-Zubehörprospekt an. Firma Klaus 
Schißlbauer, Postfach 11 71G, 8458 
Sulzbach, Tel.: 09661/6592 bis 21 Uhr, 
Sonderaktion:Legen Sie Ihrer Pro- 
spektanforderung DM 10,— bei. Sie 
erhalten 10 Superprogramme auf 
Kass. od. Disk für C64/C128. 


Münchner Computer Blitzversand 
Commodore © 128/D DM 1278,— 
Commodore C16/64K DM 230,— 
Floppy Disk VC 1551 DM 39,— 
StarNL10 DM 748,— 


Compiler C16/64/128ab DM 148,— 
Tel.: 0 89/68 82 26 


| Hardware 
| Dienstleistung 
Software 
| HDS-Prüftechnik GmbH 


; 
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er 
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Service 


= 


EM REPARATUR TEL.: 0531/51015 = 
Alle Commodore zu Festp 
CSS — Peinerstr, 170— 33. Bra 


Verschiedenes 


Software für Briefmarkensammler, 
u. a. Katalog anfordern: Hubertus 
Bachmann, 6985 Stadtprozelten 2/R. 


„WITZE AM TELEFON“ *040/326869 


fürdieWwelt 


PROFTECHNIK 


Maria-Eich-Sir. 1, 8 München 60, Telefon 089/83 770 21 


Juni/87 QUD 89 


WAS GIBT’S hir 


Die nächst- 
erreichbare 
Ausgabe für Sie 
ist die RUN 8/87 


Anzeigenschluß 
ist Mittwoch, 
der 10. 6. 1987 


Das GRAFIK-ROM II für MPS 802 & 1526 


Le “iche TEST 
on'er 9708 


6 Grafik—-Befehle 
6 Zeichensätze 
iO definierbare Zeichen 
Grafik—-Druck 
6 mal schneller 
kompatibel zu REVO7c 
druckt Print—-Shop, 
Hi Eddi+, Printfox, Geos 
und Viele andere... 


Grafikdruck ohne umeständliche Betehlesingals! 


Dion Anseige wurde erwieilt mit Printdon, SD-Funktionen, HPONOE & OMATIE-MOM II 


Versand per Nachnahme / Info gegen SO pf in Markan 
Preis DM 78,- incl, Porto / zu bestellen bei 
Heinz Haarmann, Kosterstr. 92, 4650 Bochum I 
Tal.ı (0234) 79 32 12 


Genamtkataloa DM 2.- in Marken. Händleranfrauen 


Frucht 


mw Sons Teuer > 


Computerferien 


Drei Computercamps 

im Schwarzwald ] 9 8 7. 
Basıc - 

Pascal. 


Hardware-Bau - 
Moschinensproche - 


Prospekt anfordern! 


Computer World 


7800 Freiburg 
Hurstweg 62 - Telefon 0761/44775 


C64 : PC 128  VC20 


TEXT menügesteuerte, leicht erlernbare 
Textverarbeitung mit integrierter 
Adreßdatenbank, Selektierung und Steuerung 
nagh bis zu 9 verschiedenen 
Kriterien 48,— 
FIBU frei def. Kontenrahmen, automati- 
scher Kontenausdruck, Journal, Kre- 
ditoren, Debitoren, Summen- und Saldenliste, 
Gewinn- und Verlustrechnung, 98, = 
Bilanz, BWA 
LOHN komplette Lohnabrechnung, alle 
Lohnarten, Abrechnungslisten für 
Finanzamt, Krankenkasse, etc., 98 Din 
Überweisungsträger N) 
F AKTUR integrierte Lager- und Adreßver- 
waltung, Rechnungen, Angebote, 
Lieferscheine, Umsatzstatistik und 98 
offenePostenliste,biszu3Mahnstufen er 


KOMPLETT nur 198,— 


INFO GRATIS 


HD SOFTWARE & BERATUNGS GMBH 
MITTELSTR! 29, 6308 BUTZBACH 5 
TEL. (0 60 33) 6 06 70 


Datum/Unterschrift 


Zu der in RUN Hett ..., 


Adressen (nur!. en DM 
Akropolis......... . 9,50 DM 
Alsiern.. ..14,50 DM 
ASt Planet des Todes... ‚14,50 OM 
Bundesiäga (nur t 1288r}.19,50 DM 


Bundesliga Live ..29,50 DM 
Briefmarkenverwaltung. „14,50 DM 
Castie.. ..29,50 DM 
Character-Generzior 19,50 DM 
Chemie (nur f. 128er)......39,50 DM 
Chemiepauker...... 9,500M 
Chemie-Trainer 39,50 DM 
ER 29,50 DM 
Cono's Factory 29,50 DM 
Cosmic Meals 14,50 DM 
Cup Leader...... 19,50 DM 
Dis-Dis....... 19,50 DM 
Diskettenverwaltung......14,50 DM 
Disk- erghan. 128er) 9, 2” DM 


Grafik (nur t 128er) 

Graat Master.. 

Hard-Copy 801+ 

Hacker 128 (nur 128er)... t 

Knittel 64 

Krimistunde (nur 1288r).. 9,5000 
Latino... 9.55 DM 


Lga3.1.. k 
Maschinenkurs in. 128er). 39, ‚50 DM 
Master- ET. V3,1..49,50 DM 
Mexico 86... 19, 
Moneytrans 84. 


Pios- Base 1520, 

Prof. Brock 

Profi 40 {nur 12Ber), 

Rachnung (nur 1. 12 

Rule The World. 

Sammlung 1—5, 

Sammlung 6 {nur Ban A 50. DM 

Schacharchiv..........4....39,50 DM 

Seaweg nach Osten. er Ir 50DM 
19,50 DM 


Sprite Genle..... 
Speiseplanerstallung....... 5,00 0M 
SPEISEPLANERSTELLUNG 5,00 DM 


Vieeothek (nur 128ar)......39.50 DM 
Wall Street (nur 128er)... 9,50.0M 


Katalog anfordern! 


Kosteniosen 
24 Stunden automatische Bestellannahme: 


Tel. 0 82 36/8 82 


Soft & Hardwarevertrieb Scheiba 


Talstr. 26 


8901 Dinkelscherben 


Personality 
Computertechnik 


Karlstr. 63, 7710 Donaueschingen 


Personality: Bei uns erleben Sie 
unter Garantie keinen Reinfall. 


Fordern Sie unser 
Gesamtprogramm an! 


VC 64 mit Geos 


VG 1571 


nur 4,48 
nur 5,98 


nur 4,48 
nur 6,48 


Mailbox 0771-7043, 24 h 
Tel.: 0771/7134 


S. ..., erschienenen Anzeige 


gebe ich folgende Bestellung auf: 


Bitte ich um Information über das Produkt: 


Bitte schicken Siemir [| Preisliste [J Katalog/Prospekt 


Bitte diesen Coupon direkt an die Firma zuschicken. 


Computerservice 
Tino Hofstede 

An der Windmühle 8 
5010 Berghelm 5 


664/C128 
cıs/116 


C18/116 (64Kk) 


4 Plus 
vC20 (16k) 


40/80 Zeiche 


Adresaverwal 
Astrofhysik 


utokosten 


Dinitalo 


Lottonuswertar 
Nathapnket 


Kreekurs 


Musiktitelarchiv 


Rechengenie I % IT 


Sehaufansterwerburg 


Spielepaket | & 2 


Supergenie 


Tabellenerstellung 


Textverarbeitung 


F-Gnme-Pack_ 1 5 2 


Vokabeltrainer 


Progrannkatalag gegen ? mal A0 Pf in friefmarken 


KK SOFTWARE * KK SOFTWARE » "“ 


WELT DER TATSACHEN 


Best.Nr.: CK 1040 A 


Daserzeizgrus 24 30 20 


SUPERLIGA V 3.2 


Umfangreiches und leistungstähiges Programm zur 
beliebiger Sportligatabellen. Nützic‘ 
wie Privatpersonen. Einige wichtige Merkmale: Wer 
ger Tabellen mit max 21 Mannschaften — Ei 
Mannschaften und Ergebnissen mit spezielem 
aller Parameter — Automatische T 
sichtigung von Nachholspielen — Spezialtab 
spiele) — Simulation von kommenden Spietage 
vergangene Spieltage und Tabellen, und und und 
Dauertiefstpreis 24,90 DM 


Best.Nr. CK 1000 R 


adellende 


ge 


RISIKOPOKER 


Spannung wie bei einem Original Spielautomaten, gr 
Kartendarstellung mit Musikausgabe, 


Spielspaß. 


Best. Nr.: CK 1020 R 


überraschend 


Dauertietstpreis 9,90 DM 


* Alle Programme ohne kostenaufwendigen Kopierschutz # 


Für C64 und C128 auf Diskette, Lieferung per Nach 
me/Vorauskasse/Scheck zz 
Kto 980666000 BLZ 743800 


2! Porto und Verpackung 
7 Dresdner Bank LA 


KK-SOFT Sebastlanstr. 6, 8315 Gelsenhausen 


© 64 und PC 128 


DAS SUPER-PROFI 
BETRIEBSSYSTEM 


* mit Schnalacer — $- dis Piach schnaler 

* ger Lacher wird bei jecem Loscheiehl aktiviert 

* Angabe der Ankangs- u, Encatresse des Pro“ 
jrammas Im Rechner 

* Funktonstastenbelegung 

"Male 

"Aura 

* F5 m Tastaturbeiegung abschahen 

* F7 = (atakg-Direstory laden ohne Pro- 
ammwerust 

* F2 = stratch 

* F4 = Sys-Befonie aökürzen 

"FÜ m säre 

* FO m Did — aurch Reset oder New zersiönie 
Programme zurückralen 

* SHIFT/RUN STOP = IäM Cas ersis Pro- 
ah ‚einer Diskette 

* TASTATURBELEGUNG 

hr an 5 = Quh/Reset 

LO = Tastaturbelegung & 

* CTALV = venfiy a 

* CTALR = renama SYS „Neun Kar = 
Atar Name 

* CTRLI = Intiadize 

* GIRL F = umstelen auf Geraieadresse X 
ala Batehie an Gerät X 

* CTRL A = Ach fie A von Diskatse 

* CTRLB = dt file B von Disekmie 

* CTALL m Ik fie chına as zu starten 

* CTALP m print = open 1,4 : CMIDI : Ast 

* ca 90 % komaatitel zu allanı Programmer 

* she großen Testbericht In der Fersen 
Computer Komakt 57/86 

* Madul mit Gehäuse und Warischalter 

* für Expansigespen ces C 64 


WERBEPREIS nur 55 DM 


KLEMMER & SCHULTE 
ELECTRONIC 


Berrenrather Str. 496 
5030 Hürth-Efferen 


DAS S/6-MODUL 


* Turbo — Disk-Flonpy &-7mal schneler 
* Hardospy — druckt Directory und Textein 


In 

* Formatieren — Iormaken in 36 Sex 

"10 — Changer — Anden | D und Name 

* Ranaw/Old = reäktiviert mil new oder 
Rasen gelöschte Programme 

* mit Gehäuse Nor U 54 


Preis nur 
39 DM 


SUPER HARDCOPY- 
MODUL 


* Drupen fast jeden Bicschirmimnent 
* Druck Ihre hiRes-Grafinen 

* Gutes Preis-Leistungs- Verhältnis 

* mit Gehäuse tür C 64 und PC 128 


Preis nur 
45 DM 


MODUL $S 128 


* ein Super Schmellagemacul für den PC 128 
* 95% kompatibel zu allen Programmen 

* macht die Fioppy's 1540/1541/1570/ 

1571 Im 64'er Modus ca. Tmai schneller 

* inklustve Schaher for cirekten Zugriff auf 

den 64’er Modus 

* mit Gehbuse 


Preis nur 
45,— DM 


Unser Ladenlokal ist MO— FR13— 18.305 
gesftnen. 10-1305 


Sie erreichen uns telefonisch unter 
der Nummer 02233/63736 


Ein Interessantes und leistungsfähiges Oz u Sun 
Schnell-, Setz-, Bonusfragen und Joker, sowe SPZE „ 
Schnelligkeit Trumpf ist. Leicht bedienbarer GUKZEDTTE zu 
Eingeben eigener Fragen, die auf 
werden, damit Schummler keine Chance van 
mit 1000 Fragen bis zu 20 000 (zwanzignausend: meer 
Ausführliche Anleitung liegt Dei 


Tastendruck werscrlisset 
Summer 


rat 
ur Verane. Syorreserner => 
ee 


* DIE BESONDERE SOFTWARE %* 


Für age 128: 


omifortables Buchhal- 
enüberschuß-Rech- 
nlichen Merkmalen 
t. Auswertung, graf. 
für Kleingewerbetreibende 
Gewinnermittlung nach 
zur Führung eines Haus- 


g elektronischer 
650 „Karten“ 

_ SZ-HOWÖORATHIE — umfangr. Programm- 
von Einzelmitteln; 
Fragebogen: Komplex- 
te, Heilpraktiker und alle 
ren Interessierte (auch 


„Kar- 


marieeriniarnınn 
w 


Für C84 = PC-128 (64er-Modus): prof. Software 
== der Serschen Astrologie, Biorhythmik, 
Persönlichkeitstest und Heilpraktikerprüfung 

Fordern Sie unsere ausführl. Informationen an: 


BEATE ZULLE — SOFTWARE 
Berger Straße 272, D-6000 Frankfurt/M. 60 


Gunship 

Fight Night 
Worid Games 
Saling 
Tel ARIUM 


ers De 220 wrsch. Pro. für den C16/Plus4 ab 9,90 

.“ Space 9- 
19,90 FutureKnight - 

3x ACE (Plus4) 39,-/49,— 
ACHTE Dee Sag könnte Sie erlassen, beim Laden und 
Speichern mt sl TURPOTAPE + AZIMUTHTAPE DM 29,90 
CEIEAMER 1 (3 Spiele = 1 Preis) Cass 32,—/Disk 49,— 


VIZA 


Acgis Images 
SOFTWARE 


Sindbad 

The Bards Tale 

Winter Games 
VIZAWRITEAMIGA £ 
EIER, Srapnianian (1024 + 1024 Pd.) AMIGA 9,— 
CEICOMPUTERSOFT JONIGK Riesenauswahl an Software 
An our Tgtenriece 27 sofort 0SJ NEWS anfordern 


er ee! bitte Computertyp angeben 
si Sarca 05 11/88 63 83 Händleranfragen erwünscht. 


VIDEO DIGITIZER 


4/128 Modul Supersoft 


ch eingesetzten 
HNIK VIDEO-DIGITI- 
Komiort mit mehr 
jedes Video-Signal 
+ Stanobild) jaßt 
ib von 4 sec. in den Speicher eines Com- 
4/128 einlesen. Ein Grafikausdruck ist 
allen Druckern (MPS 801/802/803, 
RX + FX sowie alle Drucker mit Epson 
80, GPiOOVC sowie in Farbdruckern 
700 und Okidata, etc.) möglich 


AMIGA DIGITIZER 698, — 


Der-über 1000x verkaufte Digi-View s/w 
+ color Digitizer mit neuer Hi-Res Color 
Soft 1987. Neu aus USA. 


Digitizer für IBM, Apple, Atari, Macintosh 


8000 MÜNCHEN 40 - NIKOLAISTR. 2 - TEL. 089 / 368197 
KATALOG DM 3,- Tügl.Versund-Telex 523 203d 


DE En TBıE ST-NOWLONIIW-ZIIMMDS 


ÖSTERREICH - 1060 WIEN » STUMPERGASSE 34 » TEL. 0222/6979429 » TELEX 112908 


Ma a 1x3%°' Laufwerken 
1 zutwerk Commodore 1010 


2599,— 
479,— 


Commodore PC-10 1122 
Commadore SX-64 1479, 
Floppy-Disk VC 1571 629,— 
Plus 4 199,—; Plus4 + Floppy 
Farömonitor Commodore 1802 499 
Grünmanitor Thomson (35 MHz, mit 
Bernsteinmanitar Samsung MD-1255 Higr 
Schwarzweißfarnseher Samsung (auf Monito 
Akustikkoppler Dataphon S21 4/2 + Kabel + age 
Akustikkoppler Dataphon $ 21/23 (für BTX geeignet 
Armbanduhr Seiko Wrist Terminal AG 1000 (kann v mt ze 
mitgelieferten Kabel + Terminalprogramm programmiert werse z- 
Farbdrucker Commodore MCS 801 449,—; Drucker MP 
Epsondrucker anschlußfertig an © 64/128 mit Görtlitzintertace Su28 
LX 800 699, —; FX 800 1169,—: FX 1000 1439,—; EX 800 - 
EX 1000 1999,—: L0 800 1619,.—; LQ 1000 2069,—: LQ 2500 ra- 
Epsondrucker anschlußfertig an AMIGA, PC oder Schneider CPC 
LX 800 579,—: FX 800 1049,—: FX 1000.1319,—; EX 600 m 
EX 1000 1879,—:; 10800 1499,—: LO 1000 1949,—: LO 2500 
Stardrucker NL-10 anschlußfertigan C 64/128 mit dt. Handbuch 
NG-10.anschlußtertigan © 64/128 mit dt. Handbuch 

Schneider CPC 6128 mit Grünmonitor 729,—: mit Farbmonltor 
Schneider PC 1512 mit Schwarzweißmanitor + 1 Laufwerk 

mit Schwarzweißmanitor + 2 Laufwerke 

mit Farbmonitor + 1 Laufwark 

mit Farbmonitor + 2 Laufwerke 
Versandkostenpauschale (Waranwert bis DM 1000,— /darübar): Vorauskasse 
(DM 8,—/20,—). Nachnahme (DM 11,20/23,20), Ausland (DM 18,—/30,—) 
Lieferung nur gegen NN oder Vorauskasse; Ausland nur Vorauskasse. Preisil- 
ste (Computertyp angaben) gegen Zusendung eines Frelumschlags. 


CSV RIEGERT 


Schloßhofstr. 5, 7324 Rechberghausen, Tel. (0 71 61) 5 28 89 


Superpreise + Superpreise + Superpreise 


Amiga 500 1298,— Amiga 1000 1749,— 
‚Amiga 2000 2649,— Monitor 1081 849, — 
Amiga Sidecar 1649,— 

DELUXE Paint, DELUXE Video, DELUXE Print, eProgr. 229,— 
Commodore 064 Il 449,— Commodore C 128 549,— 
Floppy 1541 C 449,— Commodore128D 1129,— 
Monitor 1701/1801 498,— Monitor 1901 729,— 
CommodorepC t0ll 2598,— CommodorsPC 2011 3598,— 

Druckerparade + Druckerparade 

Panasonic 1080 549,— Epson FX-800 998,— 
Panasonic 1091 698,—  EpsonFX-1000breit 1398,— 
Panasonic 1092 949,— Epson EX-800 1498,— 
Star NL-10engl. 749,— EpsonEX-1000breit 1898,— 
StarNL-10m. Inter. 898,— EpsonL0800 1698,— 
Star NX-15 Breit 1298, — EpsonLQ-1000breit 2198,— 
NECPE 1598,— EpsonLQ-2500breit 2898,— 
NECP7 1998,— EpsonSQ-2500 breit 3598,— 
NECP6color 1998,— Epson HI-80 149,— 
Disketten 5,25 ZollNo Name 1081,7,95 10081,75,— 
Diskettenbox f. 100 Disketten mit Schloß nur 19,95 
een 2000 Blatt im Karton Sonderpreis 34,95 
Staubschutzhauben aus welchem KunstlederfürC64alt 10,— 


Floppies 1541/50/70/71, Drucker MPS 802/803 je nur 15,— 


SEE Bachstr. 52, 7980 Ravensburg, 
end Telefon 0751/26138 + 26497 


STEUERN - MESSEN - REGELN 
mit C 64/C 128 oder PC (ab Jan. 1987) 
für Hobby, Ausbildung u. profession. Einsatz! 
in die 


preiswerte 
-, Überwachu 


Nutzen Sie Ihren Computer zum Einstie 

Automatis rungs technik © 

Alternativ 

und Me 

Wir liefern Ihnen mit unserem vielseitigen Interface- 

>ystem die nötigen Hardware-Module und 

ınterstützung 

einfachen Anwendung (z.B. Alarmanlagen, 
ng. Modellbau, Labor) als Einstieg, bis zum 

satz in komplizierte industrielle Anlagen 

eiterbar und vielfältig kombinierbar 


umfassende Softwar 
Von der 


signalen, Digitale Ausgänge 
s oder Transistor, Analoge 
$.) zur Erfassung 
jabe von Meß 


MANFRED KÜHN oıe..-ıne. 


Ingenieurbüro für Mikroelektronik-Anwendung 
Friedrich-Ebert-Allee 61 - 2000 Schenefeld 
Telefon 040 - 830 87 38 


Juni/87 &uo 91 


Eintippen ohne 
Fehler 


In RUN werden zwei Arten von 
Programmen veröffentlicht: Basic- 
programme und Maschinenpro- 
gramme. 


Basicprogramme werden zur 
Vermeidung von Tippiehlern am 
besten mit dem Korrektor einge- 
geben. Nach jedem RETURN gibt 
er eine Prüfsumme aus, die mit 
der Prüisumme im Listing über- 
einstimmen muß. 

Die Basiclader zu den Korrekto- 
ren für den ©64 und den O128 ste- 
hen auf Seite 93. Nach dem Einpo- 
ken der Daten aktivieren sie den 
Korrektor. Anschließend ist NEW 
einzugeben. Auf Wunsch spei- 
chern sie den fertigen Korrektor 
auch ab. Er kann dann mit LOAD 
"49152  KORREKTOR",8/NEW/ 
SYS 49152 für den C64 und mit 
BLOAD "4864KORREKTOR128"/ 
SYS 4864 für den C128 gestartet 
werden. Der C64-Korrektor arbei- 
tet auch mit Simon's Basic. Dazu 
läßt man das erste Komma in Zeile 
5000 weg. Simon’s Basic muß vor 
dem Korrektor gestartet werden. 
Der Basiclader des Korrektors für 
den C16/116/Plus/4 steht auf Sei- 
te 94, Er verfügt über keine eige- 
ne SAVE-Routine. Nach RUN kann 
man beim entsprechenden Hin- 
weis den fertigen Korrektor ab- 
speichern. Nochmaliges RUN star- 
tet das Programm. 


data 
data 
data 


For a=45152 to 49176 step 
8:s=Bd:c=B:for b=® to 7: 


gosub 60948 


s=s+h+1l-c:0=s>255: s=-255-s 
and 255:poke a+tb,h+l:next 


b:gosub 69042 


60222 f$="pruefsumme ok”:if s<> 
h+l then FS="[rvs) 


a9,00,8d,af,cf,8d,bB, 
8d,bl,cf,8d,b4,cf,8Bd, 
cf,85,5c,85,5d,a2,f8, 
data b2,cf,28,68,8d,b3,cf, 


Korrektor 


Steuerzeichen sind bei den Basic- 
listings immer in Klartext über- 
setzt, so bedeutet [3LEFT], daß 
dreimal Cursor links gedrückt 
werden muß. 


Maschinenprogramme können 
nicht direkt eingegeben werden. 
Dazu ist ein eigenes Programm nö- 
tig. Hier gibt es zwei gleichwerti- 
ge Möglichkeiten: Basiclader 
oder Hexdump. 

Ein Basiclader ist ein Basicpro- 
gramm, das ein Maschinenpro- 
gramm im Speicher unterbringt. 
Dazu werden die Zahlen, aus de- 
nen das Programm besteht, aus 
DATA-Zeilen ausgelesen und mit 
dem POKE-Befehl in den Speicher 
geschrieben. 

Bei einem Hexdump liegen die 
gleichen Zahlen in hexadezimaler 
Form vor. Sie werden beim C64 
mit einem speziellen Eingabepro- 
gramm, dem Checker (Seite 94), 
im Speicher abgelegt. 

RUN druckt Maschinenprogram- 
me für den C64 als kombinierte 
Hexdump-Basiclader ab. Damit 
werden zwei Fliegen mit einer 
Klappe geschlagen: Dasselbe 
Listing kann einmal als Basiclader, 
einmal als Hexdump betrachtet 
werden. Der Leser kann sich so 
die Eingabemethode aussuchen, 
die ihm am meisten zusagt. Listing 1 
zeigt ein solches Doppelprogramm. 
Es legt ein Beispielprogramm von 
32 Byte Länge im Bereich ab 49152 
($C000) ab. Listing 2 und 3 zeigen, 


69950 


690608 
60978 
62982 


welche Teile vom Listing | jeweils 
wichtig sind, wenn man das Pro- 
gramm als Basiclader nutzt oder 
wenn man es als Hexdump ver- 
wendet. 


Für den Basiclader ist alles von In- 
teresse, außer den Angaben 
„C000* bis „C018" ganz links. Sie 
sind unbedingt wegzulassen! Üb- 
rig bleiben vier Basiczeilen mit 
den Nummern 10 bis 40, die Hex- 
zahlen als DATAs enthalten. Ab- 
schließend ist noch der Teil mit 
den Nummern 60000—60090 in 
Listing 1 einzugeben. Er liest die 
DATAs und poket sie in den Spei- 
cher. Dieser Programmteil ist bis 
auf Zeile 60000 bei jedem Hex- 
dump-Basiclader gleich. Er ist mit 
Prüfsummen für den Korrektor 
versehen. Bei den DATA-Zeilen 
wurde darauf verzichtet, da der 
Basiclader über ein eigenes Prüf- 
system verfügt, das Eingabefehler 
weitgehend verhindert. 


Bei Verwendung als Hexdump 
muß der Checker benutzt wer- 
den. Einzugeben sind dann nur 
die Hexzahlen (siehe Listing 3). Es 
fallen also die Basiczeilennum- 
mer, das Basicwort DATA dahin- 
ter und die Kommas zwischen den 
Hexzahlen weg. Die Hexadezimal- 
adressen „C000" bis „CO18" brau- 
chen auch nicht eingetippt zu wer- 
den, da sie vom Checker geliefert 
werden. Sie sind nur zur Orientie- 
rung abgedruckt. Ebenso entfal- 
len die Zeilen 60000—60090. 


pruefsummenfehler”:f=f+1 
60239 gosub 698898:next a:print ” 
Cdouwn]”f”fehler”:end 
60248 read h$:gosub 68859: h=1* 
16:h$=mid$ Ch$,2) 
l=-asc Ch$+”"x”)-48:if 1<0 
or 1>22 then 698088 
if 1<18 then return . 
l=1-7:if 1>9 then return 
£fS$S=-"[rvsleingabefehler”:1= 


2267 
2715 
3138 
1044 


1334 
2462 


O:f=-f+1 


5633 


60239 print "zeile” peek (64)* 


2726 


256+peek (63)f$:return 


Listing 1: Beispiel für einen kombinierten Hexdump-Basiclader 


12 data 
28 data 
38 data 
40 data 


Listing 2: Beim Basiclader entfallen 


die Adressenangaben links 
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a3,00,Bd,af,cf,8d,b@,cf, 
8d,bi,cf,Bd,b4,cf,Bd,b5, 
cf,85,50,85,5d,a2,fB,8e, 
b2,cf,88,68,8d,b3,cf,08, 


c009 
c808 
c818 
c218B 


a9 88 Bd af cf Bd bB ck 
Bd bi cf Bd b4 cf Bd b5 
cf 85 Sc B5 5d ae fB Be 
b2 cf 88 6B Bd b3 cf 28 


Listing 3: Beim Hexdump fallen Zeilen- 
nummern, „Data“ und Kommas weg 


NSS TERNOR.D ZOM 


restore :for a=43152 to 43629:poke 
a,634:next :print "moment! 

f=-0@:read a:y"peek (63)+peek (B4)* 
PS6:if a=® then 2008 

read b,c:for d=a to b:read a$:if 
len (a$)-2 then 98 

e=-asc (a$)-48-(7 and a$>"@”):if as 
»9” or aSß>”g” or a$?”:" and a$<"a” 
then 30 

a$-mid$ (a$,2):e=e*16+tasc (a$)-48- 
(7 and aS>”@”) 

if as<"”®0" or a$>”f” or a$>”S” and 
a$<”a” then 908 

£=-f+e:poke d,e:next :if F=c then 20 
print ”pruefsummenfehler: soll"c”, 
ist"f:goto 198 

print "eingabefehler: "a$:y=® 
z-peek (63)+psek (64)*2556:a$-str$ 
(y)+str$ (-z):iE y=-® then a$=str$ 
(zZ) 

print "CdownJl1”’as"[2up]”;:poke 
198,1:poke 631,13:end 

print "”Cdounlfertig.”:print "[Cdown] 
soll das maschinenprogramm 
abgespeichert 

input "LupJwerdenf2spaces) j[L3left]"” 
;aS:if a$<c>”j” then 3208 

sys 57812”@:48152 korrektor”,8:poke 
193,8:poke 194,182:poke 174,222 

poke 175,193:sys 52357: verify 
’49152 korrektor”,B,1 

a$=-"":input "[down]lkorrektor 
aktivieren? j[3left]”;a$:if a$=-"J” 
then sys 45152 

rem hauptprogramm 

data 49187,432928,2342,39,ae,a2,c®, 

8d,22,283,82,23,23,00,a0,1f,b9,e2 


Korrektor für den C64, Disk Version 


208 print "Idownlfertig.”:print ”[down] 
soll das maschinenprogramm auf 
kassette 
21® input "abgespeichert werden 
[2spaces]3[3left)”;a$:if a$<>”j” 
then 3828 


data c1,99,20,04,88,18,F7 

data 49323,49387,9136,4c,31,e3,78, 
a9,2e,a2,c0,8d,14,03,8e,15,23,58 
data a9,08,8d,e1,c1,20,569,25,8c,el, 
c1,86,7a2,84,7b,ac,e®d,c1,f0,13,2®8 
data 10,b3,e1,c1,99,f1,c1,a3,a8,38, 
e1,c1,88,d0,F2,8c,20,c1,20,73,2@8 
data aa,f®,d3,88,84,3a,90,55 

data 49467, 49629, 19950,4c,96,a4,“Sc, 
08,aFf,20,6b,89,20,79,85,B4,0b,a® 
data 00,84,08,84,45,84,46,84,09,c8, 
be,ff,201,F0,38,a85,28,30,0c,e®, 28 
data FO,Ff2,e0,3a,f0,0c,e0,8F,f0,28, 
ed,22,d0,02,49,80,09,01,85,08,Ba 
data a6,09,f0,06,02,69,00,ca,d®,Ffa, 
18,65,45,85,45,90,02,865,46,e6,09 
data a5,09,29,07,85,809,10,c2,45,08, 
90,21,a0,ff,8c,ed,c1,a2,14,20,b9 
data c1,c8,a9,bd,39,e2,c1,39,be,c8, 
9S93,e2,c1,c8,a2,45,20,b9,c1,a9,bb 
data 99,e82,c1,“4c,a4,a4,84,08,b5,00, 
85,63,b5,01,85,62,22,90,38,20,49 
data bc,20,df,bd,a4,08,aa,c8,bd,28, 
01,F0,08,29,80,99,e2,c1,e8,d2,F2,60 
rem ein/ausschalter 

data 49152,48186,5131,2d,23,03,c9, 
c®,d2,09,ad,de,ci1,ae,df,c1,4c,27 
data c®,Bd,df,c1,ad,02,23,8d,de,ci, 
a9,a8,a2,1f,Sd,ed,c1,ca,1®,Fa 

rem eingabesicherung 

data 49285, 49322,4625,ad,el,c1,d®, 
21,8d,20,d2,84,21,40,35,da,308,de 
data 89,80,85,da,a8,27,39,20,39,28, 
04,88,10,fa,26,d56,d90,05,a9,11,20, 
35,eb 

rem ende bzw. simon’s anpassung 

rem duch weglassen des 1. kommas: 
data ‚43293,493295,702,ea,ea,ea 


228 sys 57812”43152 korrektor”,1,1:poke 


1933,8:poke 194,192:poke 174,222 
poke 175,193:sys 62957:print "bitte 
die kassette zurusckspulen und 
input ”return druscken”;a$:verify 
”49152 korrektor”,1 


trap 542:bank B:restore :print 
"moment... 

data 1382,33,00,84,00,ff,ad,02,2036 
data 23,2e,23,03,c9,67,d8,2c0,e8,Bb5 
data 13,d0,08,ad,35,14,ae,36,14,dS6 
data b2,14,84,35,14,8e,36,14,a0,a89 
data 27,29,a0,99,37,14,88,10,fa,38e 
data a9,567,22,13,8d,02,03,8e,23,9b8 
data 23,4c,53,fa,dB,20,24,c0,08,3la 
data a8,27,b69,37,14,99,c0,07,88,d27 
data 10,F7,35,d7,30,17,a9,18,c5,9cc 
data eb,f2,26,c5,e4,d0,02,c6,e4,388 
data c5,e5,d0,02,c6,e5,a9,00,8d,aa3 
data 61,03,28,4c,69,fa,78,a2,13,2f1 
data 88,15,03,a2,38,8e,14,803,58,7£7 
data a2,ff,86,3c,20,93,4f,86,3d,dia 
data 864,3e,ad,37,14,c9,a0,f,10,2d3 
data a2,19,bd,37,14,9d,45,14,89,315 
data a8,3d,37,14,ca,10,f2,20,80,ee6 
data 23,aa,F0,cc,990,03,4c,d9,4d, a5® 
data 20,a0,50,20,03,43,84,0d,a0,014 
data 00,84,09,84,0b,84,0c,84,0a,567 
data 88,c8,20,c9,03,aa,f0,38,a5,b5a 
data 809,30,0c,e0,20,fd,f1,ed,3a,3be 
data f®,0c,e0d,8f,f0,28,20,22,d0,2b9 
data 02,49,80,09,01,85,09,Ba,a6,2®e 
data da,f0,06,03,69,00,ca,d®,fa,625 
data 18,65,0b,85,0b,90,02,e6,0c,dib 
data e6,03,a5,03,29,07,85,03,18,bb4 
data c1,46,09,30,17,a0,ff,a2,16,481 
data 20,10,14,08,a9,bd,399,37,14,965 
data a2,0b,20,18,14,39,bb,99,37,a6b 
data 14,4c,ea,4d,84,209,b5,00,85,b73 
data 65,b5,021,85,64,2a2,90,38,28,e22 
data 75,80,20,44,Be,a4,09,aa,c8B,ffb 
data bd,20,01,F0,08,09,80,39,37,087 


Korrektor für den C128 
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Korrektor für den C64: Anpassungen für Datasette 


data 14,e8,d0,f2,68,4c4,37282 
a=-1:for n=® to 345:read a$:on len 
(a5) goto 479,490,510,5390,55®8 


print ”data-fehler- [rvs]”a$ 

print ”zeile ” psek (65)+peek (66)* 

256: end 

b=dec (a$):poke a,b:p"ptb;a=a+l 

k=xor ((k*2 and 4085)+int (k/2048), 

b):goto 570 

if k=-dec (a$) then k=d:goto 570 
print "fehler: parity soll ” mid$ 

C hex$ (k),2):goto 4B® 

if a<d then a=dec (a$):p=-a:goto 570 
print "pruefsumme fehlt!"”:end 

if p<>val (a$) then print 
’pruefsummenfehler|”":end 

a=-1 

next :if a>® then 542 

print "fertig.”:print "[Cdown]soll 
das maschinenprogramm 
abgespeichert 

print ”werden?”:get key a$:if a$<> 
"j” then 6128 5 

bsave "4864korrektor1i128”,b®, p4B6H4 
to p5173:print ds$ 

print "Cdown]soll der korrektor 
gestartet”:print "werden? 

trap :get key d$:if a$="j"” then sys 

4864 

end 

if er=-14 then resume 48®:else if er 
=38 then resume 669 

print "eingabefehler: " err$ (er): 
help 

trap :stop 
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ı21 
127 
128 data 
129 data 
130 
131 


280 data 
230 data 
398 data 
310 data 


Korrektor für den C16/ 


Plus/4 


Checker für 
Maschinen- 


Programme 


Der Checker dient zur Eingabe 
von Maschinenprogrammen für 
den 0864. Er reduziert die Tippar- 
beit und verhindert Eingabefeh- 
ler. Außerdem entfällt das lang- 
wierige Einlesen von Datazeilen. 
Der Basiclader des Checkers 
steht auf Seite 95. Er poket nach 
dem Start mit RUN die Daten in 
den Speicher. Da er sich dabei 
selbst überschreibt, muß er unbe- 
dingt vorher abgespeichert wer- 
den! Nach dem Einlesen der Da- 
ten schreibt der Lader einen 
SAVE-Befehl auf den Bildschirm, 
so daß man nur Return zu drücken 
braucht, um den fertigen Checker 
abzuspeichern. Dieser kann dann 
mit LOAD "CHECKER",8 geladen 
und mit RUN gestartet werden. 
Will man den Checker mit der Da- 
tasette benutzen, muß man bei der 
Diskversion einige Zeilen erset- 
zen. Die nötigen Änderungen ste- 
hen im Listing unten. 


data 


132 data 2f,b2,32,82,69,07,aa,38,02,e6,af,86,1d,Ba,29 
133 data 38,4a,4a,4a,a8,a5,af,38,e9,490,06,1d,2a,86,1d 
134 data 2a,85,1d,22,00,e4,1d,F8,08,a9,ff,3d,20,3c,eB 


25®@ data d®,02,49,80,09,21,85,08,Ba,a6 
27@ data 09,f0,06,02,69,00,ca,d®,fa,18 
65,45,85,45,90,02,e6,46,86,23 
a5,09,29,07,85,29,180,c1,46,08 
99,17,a0,ff,a2,14,20,db,18,c8 
a9,bd,39,c0,0f,a2,45,20,db,1® 
a9,bb,39,c0,28F,4c,36,87,84,08 


data 0808,20,02,20,bd,Ff,68,86,33,66,9d ,40,5b, ff, ff 
data 2a,0f,33,08,04,cB,d0,a8,01,b1,b2,85,fd,c8,bi 
b2,85,fe,38,4c,7d,f5,39,00,20,fd,8s,sa,ea,20 
F8,0f,20,d0,£F7,28,17,F8,b0,58,20,af,f5,a5,b7 
data f®,07,20,ea,f7,38,09,b8,4a,20,20,£7,f0,45,b® 
43,85,90,29,10,d8,3d,85,c3,a9,40,85,c4,20,6a 


ce 338 data b5,00,85,63,b5,21,85,62,22,38 
3 ‚27,52,28,34,31,33,38 342 data 38,20,ce,a2,20,71,a4,a4,2B,aa 
x ‚ad,e25,87,c9,18,d90,83 358 data c8,bd,20,21,f0,028,09,80,33,c8 
5.27.24.28.87,c9,18,d0,03 358 data Of,eB,dd,fF2,50,00,20,00 
‚e8,27,25,82,84,£1,27,4c,2e 378 print "[CclrIdas programm sollte vor dem ersten 

150 data ce,a25,,84,82,03,39,10,8d4,03 | startabgsspeichert werden![down) 
160 data 23,29,11,85,2c,69,82,10,8e,15 | 322 
178 data 23,a2,FF,85,33,20,53,88,86,3b 3S® print "data-fehler: 
180 data 9=,3,2d,c8,2f,c9,a0,f0,10,a2 poke 1265,peek (64):poke 1263,1 
190 data 19,bd,c8,@Ff,5d,ce,df,a9,a0,9d “22 
2008 date -®,@f,ca,10,f2,20,73,04,aa,f® and 255:poke 1270,a/256:help :end 
210 data d3,38,83,40,25,87,20,38,88,20 “1® if er=-38 then print "break kann das programm 
220 data 53,59,84,0b,a0,00,84,08,84,45 zerstoeren!":end 
230 data 54,45,84,09,88,08,20,85,04,aa 42® if er=1# then resume 399 
2#0 data F0,38,a5,08,30,0c,e8,20,F0,f1 430 
252 data ed,3a,f0,0c,e0d,8f,f9,28,ed,22 ‚end 


(aS):next 


Der Checker ist eine Art Textedi- 
tor für Maschinenprogramme, die 
in Form von Hexdumps abge- 
druckt sind. Jede einzelne Zeile 
(zu je acht Bytes) wird anhand ei- 
ner miteinzugebenden Prüfsum- 
me auf Richtigkeit getestet. Bei 
Tippfehlern ertönt ein akustisches 
Signal. Die hexadezimalen Daten 
werden mit den Tasten 0—9 und 
A—F eingegeben. Mit RETURN 
übernimmt man eine Zeile in den 
Speicher. Stimmt die vom Compu- 
ter errechnete Prüfsumme mit der 
eingegebenen überein, ertönt ein 
hoher Ton. Bei einer fehlerhaften 
Zeile ist ein tiefer Ton zu hören, 
und der Cursor springt wieder an 
den Zeilenanfang, 

Weitere Funktionen kommen fol- 
genden Tasten zu: 

Y: Muß vor dem Eintippen eines 
Programms als erstes betätigt 
werden! Der Checker fragt dann 
nach der Startadresse, unter der 
das Programm später abgespei- 
chert werden soll. Der benötigte 
Wert ist jeweils den Programmbe- 
schreibungen zu entnehmen. 


4592 
3949 
4777 
43569 
3338 
4518 
4392 
4051 
3943 


135 data 
138 data 
139 data 
148 data 
141 data 
142 data 
143 data 
258 


Checker für den C64: Änderungen für Datasette 
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PT ERWOR.D COM 


n-n+l:read a$:a=-a+dec (a$):if len (a$)-=2 then 380 


a=-peesk (65)*+peek (66)*256-len (a$)-1:poke 1269,a 


if er<>13 then print "zeilen-eingabefehler!":help 


if nt>255 or a<>27332 then print 
"prusfsummenfehler, 
restore :for a=-4857 to 4354:read a$:poke a,dec 


print "das korrektorstarterprogramm kann jetzt 
abgespeichert werden. 
poke 45,3: poke 45, 


d®a,f4,b9,75,0d,9d,22,3c,4c,19,08,4c,92,09,38 
c3,ff,4c,92,09,28,de,2d,b8,53,20,fd,88,20,dd 
£f7,20,38,£f8,b0,3b,20,8F,f6,a5,1b,85,ae,a5,1c 
38,89,408,85,af,a5,fe,85,c2,a5,fd,85,01,18,65 
ae,B5,ae,a5,af,65,c2,85,af,a9,01,20,6a,f7,b® 
13,89,280,85,c01,a9,492,85,c2,a5,1c,85,af,a5,1b 
85,88,20,67,f8,4c,19,28,20,28,85,1d,30,df,e6 
print "[clr,2down]save” chr$ (34)”checker” chr$ 
(34)”Chome)”; :end 


[rvs)”a$S:poke 1264,peek (63): 


bitte pruefen!”:end 


17:c1lr 


Cursortasten: Der Cursor wird 
mit den Cursortasten gesteuert. 
Erreicht er den oberen oder unte- 
ren Bildschirmrand, wird entspre- 
chend gescrollt. 

INST/DEL: Löscht ein Zeichen 
oder fügt eines ein. 

HOME: Setzt den Cursor an den 
Zeilenanfang. 

CLR: Löscht eine Zeile und läßt 
sie zur Veränderung frei. 

K: Löscht eine Zeile und zieht den 
Rest nach oben. 

I: Fügt eine Leerzeile ein. 

H: Setzt den Cursor an den Text- 
anfang. 

S: Speichert das Programm ab. 
Sollte sich im Text eine Leerstelle 
befinden, springt der Cursor dort- 
hin. Saven ist erst möglich, wenn 
alle Leerstellen entfernt wurden. 
L: Lädt ein abgespeichertes Pro- 
gramm, um es zum Beispiel zu er- 
gänzen oder zu verändern. 

P: Druckt das Programm aus. 
Wird der Checker mit Runstop/ 
Restore verlassen, so kann man 
ihn mit SYS 2073 ohne Datenver- 
lust wieder aktivieren. 


yaay 
3833 
4419 
4675| 
4004 
4662 
4207 
3203 


0b,28,c1,07,98,32,30,36,34,00,02, 
a9,00,85,fd,85,fe,20,f8,0f,20,Ba, 
83,02,89,18,8d,05,dc,20,2f,08,20, 
0B,20,27,03,39,00,85,c6,a5,c6,f®ß, 
ad,77,02,60,39,00,84,20,d0,aS9,®e, 
00,a2,d8,84,1b,84,1f,86,1c,86,20, 
84,1d,a9,00,91,1b,a9,a0,91,1d,c8 
e6.1e,e8,ed,dc,dd,ec,a2,17,a0,55 
c8,91,1F,c8,c8,c0,6c,80,£3,c8,c8 
c8,91,1f,a5,1f,18,69,28,85,1f,98 
d®,da,a0,05,a2,30,a9,b0,39,00,® 
01,24,c8,cB,c8,e8,e2,38,dd,ed,a 
99,00,04,c8,ca,d®,F6,60,a0,50,a 
10,89,17,85,02,85,61,85,19,85,6 
08,85,19,18,69,08,85,19,30,22,e® 
69,27,85,1b,90,02,86,1c,c6,02,d 
93,8b6,88,83,a5,fd,18,65,19,4B8,a 
66,29,68,20,66,09,20,83,09,a5,1 
18,69,40,85,1e,a5,1a,85,1fF,a5,1 
e5,1f,a9,3c,85,20,85,19,4a,4a, 
98,09,a0,00,31,1F,F0,22,80,00, 
66,09,28,83,09,a4,0d,cB,c®,2&, 
20,83,09,20,83,29,20,66,09,“c, 
00,39,a8,91,1b,20,83,09,ca,d® 
Ya,4a,20,74,09,68,29,0Ff,4c,7% 
02.63,06.69.ba,23.bF.a0,00,51 
e5,1c,60,29,0F,8d,18,d4,22, 
bd,08,80,40,20,10,08,04,02, 
1d,84,1e,a2,16,a0,27,84,20, 
b1,1d,a4,28,91,1d,c6,1f,c&6, 
69,28,85,1d,90,02,e6,le,ca, 
a9,07,85,1c,a5,61,18,69,b2, 
85,1a,40,f5,208,29,98,20,07, 
a9,27,85,1f,a9,4f,85,20,2% 
1d,c6,20,c6,1f,10,f2,a5,1d 
02.cB,le,ca.,d®,dc,a9,52 
61,85,19,35,62,85,1a,4 
05,91,65,560,89,00,85, 
64,39,55,85,65,39,d 
65,38,e9,28,85,65,b 


data 85,20,82,07,89,0Ff,85,0d,8a, ee 3993 
data 1Ff,c6,0d,ca,10,f3,a5,20,c5, - 3858 
data 1d,f0,0d,25,1f,38,e9,08,85,1F 3808 
data d4,20,e8,0b,a6,1f,b3,75,0d, ‚us, 4347 
data 09,31,1f,4a,08,85,02,b1,1F,35, 4258 
data e8,f0,08,28,78,00,3c,08,“4c, > 4453 
data 60,00,89,c0,e8,f0,f8,Ffc,fe,ff,7 4399 
data 03,01,20,04,0c,30,07,a2,0F,84, 24.8 ‚8,bi, 4119 
data a4,2d,S1,1d,ca,c6,0d,10,f3,85,1d,18, ; 383 
data 1d,90,02,e5.1e,a5,1d.c9,f8,d0,dc.as.ı a “181 
data d®,d56,20,04,0c,29,e8,0b,a2,ff,18,08,28, “7108 
data 3c,08,ca,e4,1f,d0,f6,b9,75,2d,3d,00,3c,85, 452 
data bd,09,3c,28,23,39,7d,0d,05,02,9d4,00,3c,“4c, 4377 
data 058,82,00,b6d,00,3c,c9,Fff,d0,03,e8,d0,f6,85,02 +831 
data ad,ff,e4,02,Ff0,3Ff,bd,20,3c,d0,05,ca,ed,fFf,do 2305 
data F2,36,02,bd,00,3c,85,02,a0,00,a85,02,39,98,05 =ı81 
data f0,03,c8,10,f6,84,0d4,39,00,85,62,Ba,0a,26,62 +73 
data 03,26,62,0a8,26,62,05,04,0a,26,62,0a,26,62,da 3847 
data 26,62,85,61,20,36,03,38,60,a0,07,bd,88,3c,d9 3857 
data 75,0d4,F0,05,88,10,f8,30,bc,84,02,a2,00,85,1c 4023 
data Ba,0a,26,1c,8a,26,1c,08,26,1c,05,0?,0a,256,1c 3836 
data 8a,26,1c,03,26,1c,85,1b,a5,1c,18,653,40,85,1c 45605 
data 18,60,86,0d4,85,1d,84,1e,a5,63,48,a85,64,48,a5 4253 
data 65,48,25,66,48,30,27,893,0,99,00,04,88,10,F8 4563 
data a®d,80,b1,1d,f®,09,20,23,0F,99,00,04.cB,dd,f3 10564 
data a2,00,84,63,39,06,39,00,d8,99,01,d8,cB,e8ß,e4 14167 
data 0d,d0,f7,a9,d8,85,566,39,00,85,64,85,65,85,20 4433 
data 20,2f,208,48,293,60,d0,1a,68,c9,2d,F0,2d,c9,14 4204 
data d®,ef,a5,20,f8,eb,c6,63,c6,20,a9,80,a4,63,39 14769 
data 20,24,10,de,a4,20,68,S93,00,02,c4,0d,f9d,d4,a4 14178 
data 63,20,28,0F,39,00,04,e6,20,e6,63,d0,c6,a4,20 4984 
data a9S,20,99,00,22,568,85,66,68,85,65,68,85,64,68 +8829 
data 85,63,60,48,39,20,a0,0f,a2,0f,20,66,0e,SB,a2 4109 
data 00,20,02,20,bd,ff,68,a8,a2,08,39,08,20,ba,ff 286 
data 208,c0,ff,a9,801,4c,40,20f,46,49,40,45,48,41,4d 4114 
data 45,20,00,48,4a,4a,4a,43,43,aa,68,29,1f,1d,38 4369 
data 0f,590,20,20,80,c0,48,e8,c0,e0,39,08,20,b4,ff 3787 
data a3,6f,20,36,Ff,a0,27,a5,30,59,20,04,a9,008,33 5164 
data 00,d8,88,10,F3,20,20,20,85,Ff,cS,0d,f0,098,29 4725 
data 2a3,0f,39,00,94,c8,d®,f®,2d,08,24,0d,01,04,293 3714 
data Of ,48,20,ab,ff,68,560,29,20,20,fd,2e,dd,6s8,a2 3753 
data 08,20,c6,ff,a9,28,85,580,85,1b,28,cf, ff,85,fd 3351 
data 20,cf,ff,Bd,fe,88,20,F8,2Ff,238,3c,85,1c,39,08 4487 
data 85,02,85,1d,a9,40,85,1e,35,39,d0,35,280,09,28 4266 
data cf,ff,931,1d,c8,c0,08,d0,f6,80,00,86,02,b1,1b 4979 
data 1d,38,99,91,1b,e6,22,e8,e0,08,d0,06,23,08,85 141508 
data 802,86,1b,a5,1d,18,69,28,85,1d,30,cf,e5,le,a5S 4363 
data 1e,c9,80,d0,c7,20,cc,ff,a9,08,28,c3,ff,20,382 3883 
data Ba,4c,32,09,39,00,85,c6,35,c6,fd,Ffc,d®,eb,a® 4216 
data 90,38,99,08,3c,c8,d®,fa,59,29,cc,ff,a9,08,28 4361 
data c3,ff,4c,92,09,20,de,8d,b0,53,85,1b,48,85,1c 4426 
data 48,a5,01,20,fd,08,85,1fF,68,85,1c,68,85,1b,a5 4578 
data 1f,d0,c5,a9,88,85,1d,a9,40,85,1e,a2,08,28,c9 4825 
data Ff,a5S,Ffd,20,d2,ff,a5,fe,20,d2,ff,a5,1d,c5,1b 142563 
data d®,06,a5,1e,c5,1c,F80,94,80,008,b1,1d,20,d2,ff 14028 
data c8,c0,08,d0,F6,35,1d,18,69,08,85,1d,30,df,es 14904 
data 1e,d®,db,4c,bd,98,a2,04,30,180,29,88,20,66,0e 3781 
data a9,0f,85,1b,a9,04,85,1c,20,b3,0b,Bd,fe,08,28 4411 
data b9,0b,8d,fd,08,4c,92,09,41,4e,46,41,48,47,53 4239 
data 41,44,52,45,53,53,45,20,00,18,69,f6,90,02,69 W522 
data 06,69,3a,4c,d2,ff,48,4a,4a,4a,48,20,98,18,68 4479 
data 29,0f,4c,98,10,20,de,2d,b®,ae,a9,00,28,bd, ff 4373 
data a9,04,aa2,a0,00,20,ba,ff,20,c0,Ff,a2,804,20,09 35663 
data ff,a0,06,a9,20,20,d2,ff,88,d0,Ff8,a2,07,808,00 3531 
data 38,20,a4,10,a9,290,20,d2,ff,c8B,ca,10,F3,a80,05 44086 
data b9,6c,11,20,d2,ff,88,18,F7,a9,0d,20,de,ff,20 4361 
data d2,ff,a5,fd,85,1f,a5,fe,85,20,39,08,85,1d,a9 14394 
data 40,85,1e,a5,1d,c5,1b,d0,06,35,1e,c5,1c,fd,4e 14472 
Ya,4a,4a,29,07,a8,60,a5,64,03,0a,Bda,i18,5 data a5,20,20,84,10,a5,1f,20,84,10,a9,20,20,d2,ffF 14037 
B5,1d,a5,62,69,00,69,40,85,1e,60,20,cB, >, data 29,d2,Ff,a0,00,b1,1d,20,a4,10,a9,20,20,d2,Ff 40213 
00.84.02.20.b9,0b,20,83,09,a4,02,31,1d,c®.c® 5 data c8,c0,08,d0,f1,a9,20,20,d2,Ff,20,d2,ff,20,2a 14420 
08,dd,efF,20,83,09,20,83,09,20,b9,0b,85,24,20 data 2b,20,a4,10,a9,0d,20,d2,ff,a5,1Ff,18,69,08,85 14333 
2a,0b,c5,2d,f0,06,20,61,0c,85,63,60,25,57,2®8 data 1F,90,02,e6,20,a85,1d,18,69,08,85,1d,30,aa,e& 35638 
00,11,1F,91,1f,839,00,85,63,20,6e,2a,a5,20,20 data 1e,d0,a6,20,cc,ff,a9,04,4c,c3,ff,4d,55,53,4b 4150 
68,0c,a0,14,20,86,0c,4c,BF,0c,a9,3c,20,5e8,®c \ data 48,43,0d,2d,2d,2d,2d,2d,2d,68,c1,00,00,008,08 3793 
a0,50,20,86,0c,4c,8f,0c,8d,01,d4,29,00,8d4,00 Eor z=1 to 162:f$=" ok”:For b=d to 14 2239 
d4,a9,11,8d4,05,d4,a9,f1,8d,06,d4,a9,11,8d,0= 2 read h$:gosub 300:h=1*16:h$=mid$ Ch$,2):aosub 308 3041 
d4,60,22,00,ca,d®,fd,88,dd,F8,60,a39,00,84,0% poke 2034+z*15+b,h+l 1738 
d4,60,20,c8,2b,20,bd,28,a9,00,85,63,60,a5,55 next :print "zeile”z;f$:next 1716 
85,1d,a5,66,29,03,09,04,85,1e,60,00,01,03,0* | poke 45,122:poke 46,17 1633 
06,07,09,08,0c,0d,0F,10,12,13,15,16,1a,1b,20 == print "Celr,2down]save” chr$ (34)"checker” chr$ 3398 
a0,2c,a0,1b,b1,1d,c9,a0,d8,1b,a2,11,bc,ad,®c | (34)” ‚8Chomel”; :end 
c4,63,f0,0e,84,2d,ca,bc,ad,®c,bl,1d,a4,0d,S1 

1d,d®,eb,a9,a0,91,1d,60,20,20,0c,25,63,fd,f& l=asc (h$+"x")-48:if 1<® or 1>22 then 339 3067 
a2,11,dd,ad,2c,f0,23,ca,10,f8,bc,ad,®c,bi,1d | if 1<18 then return 1944 
ca,bc,ad,2c,31,1d,e8,e8,ed,12,dd,ef,aS,a0,2®8 | i=1-7:if 1>9 then return 7334 
1b,91,1d,4c,3a,2b,20,04,0c,89,f0,85,1f,a9,7Ff 1=-9:f$="” [rvsleingabefehler”:return 8647 
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11,d0,03,.4c,6e,0a, 
d®,03,4c,68,0b,c9, 
83,4c,17,2c,c9,3®, 
07,c9,47,b8,03,4c, 
c9,93,d0,03,4c,95, 
S4,d0,23,4c,bf,®c, 
08,c9,49,d0,23,4c, 
aaa . 
59,d0,83,4c,68,18,c5 
08,20,00,18,a9,008,71,1 
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22 
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64 
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ve 
31 
Je 
er 
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c3 
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fo, ef, cs, 08, Fo, eb. ce, en. f0,e7,c3 
11,£f9,df,c9,14,F8,db,c3,19,d0,df 
60,86,63,85,63,c9,1c,d2,83,c6,53, 
£1,c9,05,fd,8d,c3,08,f8,e9,c3,0b,f 
£f0,e1,c9,11,£8,dd,c9,14,f0,d9,c9,1 
12,85, 63,698,48,282,28,0c,68,29,3F,® 
91,1d,4c,68,2b,28,208,b1,1b,29,7f,c3 
69,3a,89,30,4c,83,03,20,38,0b,0a,®a, 
0d,280,a8,0b,05,0d4,60,a5,65,85,1b,a5, 
09,04,85,1c,20,04,8c,20,e8,0b,b3,S8, 
49,Ff,a0,00,31,1f,931,1fF,60,a5,1e,38, es. 
ı1f,a5,1d,0a,26,1f,0a,26,1f,a9,30,85,22, 
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Basiclader des Checkers für den C64, Diskversion 
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Tips und Tricks EEE TERTENTETTTT 


Ein sehneller 
Müllsammier 


System: C64 
Typ: Utility 
Sprache Assembler 


Der C54 besitzt eine unangeneh- 
me Eigenschaft: Benützt man viele 
Stringvariablen, so kann es pas- 
sieren, daß sich der Rechner für 
längere Zeit abstellt, um eine Gar- 
bage-Collection durchzuführen. 
„Müllsammler“ ersetzt die langsa- 
me Sammelroutine durch eine 
schnellere. Das Programm geht 
nicht jeden String einzeln durch 
wie die serielle Routine, sondern 
sucht den Stringspeicher in 1,5 Ki- 
lobyte-Schritten ab. Alle Zeichen- 
ketten, die in dem ausgewählten 
Bereich liegen, werden in einen 
Puffer kopiert, und die Zeiger auf 
die jeweiligen Strings bekommen 
neue Werte zugeordnet. 


sys32768B 


Wenn der C64 plötz- 
lich für Minuten nicht 
mehr ansprechbar ist, 

so findet meist eine 


Garbage-Collection 
statt. Der „Müllsamm- 
ler“ erfüllt dieselbe 
Aufgabe in Sekunden. 


Das Programm belegt etwa zwei 
Kilobyte. Es steht ab $c738 im 
Speicher. Zum Aktivieren des 
Müllsammlers muß zunächst das 
Basic-ROM mit POKE 1,54 abge- 
schaltet werden. Bei der lInitiali- 
sierung des Programms mit SYS 
51000 wird das Basic-ROM in das 


aender lda sprung,y 


darunterliegende RAM kopiert 
und am Anfang der alten Routine 
ein Zeiger auf die neue gesetzt. 


Das Programm ist als kombinier- 
ter Hexdump-Basiclader abge- 
druckt (Listing 1). Wird das Pro- 
gramm als Basiclader eingege- 
ben, so muß der Lader vor dem 
Start abgespeichert werden. Nach 
RUN werden die Daten in den 
Speicher gepoket. Das fertige Ma- 
schinenprogramm kann dann mit 
POKE 43,56 :POKE 44,199 

POKE 45,210:POKE 46,200 

SAVE „name“ ,8 

auf Diskette abgespeichert wer- 
den. Wird es als Hexdump einge- 
geben, so muß der Checker be- 
nutzt werden. Als Startadresse ist 
0738 anzugeben. Der „Müllsamm- 
ler* wird mit LOAD". . .',8,1 gela- 
den. 


(M. Scherer) EEE 


kopieren 


‚opt p,oo 

ji .sym 2 

‚tit ”neue garbage collection” 

*=510008 

zeiger =$22 zeiger in variable 
-$4e ;zeiger d romroutine 
=$5a ; akt. pufferadresse 
=$61 ; akt. kopieradresse 
=$53 ; variablenlaenge 

offset?2 -355 fuer verschieben 

bas,end =337 speicherende 

oben -533 obergrenze & un- 

unten =55f tergrenze d blocks 

Feld.end -$31 ende d variablen 

var,anf =$2d anfang d variablen 

Feld.anf =$2f anfang d felder 

feld.zei -$58B naechstes feld 

pufferende 

routine im rom 


puf,end ee: 
arm garb 


initialisieren 
; From ins ram kopieren 
init ldy #0:1dx #$20; $20=32 pages 
lda #$a8:sta $62 =8 kb 
sty 561 ab $3008 
initl lda ($61),y auf sich 
sta ($61),y ; selbst kopie- 
iny: bne initl ; ren 
inc 562 C rom->ram ) 
dex:bne initl 
; basic veraendern 
romaend ldy #2 
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sta alt.garb,y 
dey:bpl aender 

rts 

SE Eae jJmp muellabf 


anfang d ori- 
ginalroutine 


aenderung 


: musellabfuhr fuer strings 
musllabf ldx bas,end 

lda bas.end+1 

stx kop.anf 

sta kop.anf+1 

ldy #3:sty offset 

stx oben ; Euer 1, block 
sta oben+t1l 

; wiederhole ... 

repeat sec:sbc #pages; unten 

bcs *+4:1da #8 

cmp feld.end+1:bcc drunter 

bne drueber ; berechnen 
cpx feld.end :bcs drueber 

drunter ldx feld.end 

lda feld.end+1 

drusber stx unten 

sta unten+ti1 

ldx kop.anf 

lda kop.anf+1 

stx kop.end ; Fuers block- 
sta kop,.end+1 ; kopieren 
lda #<puf.end:ldx #>puf.end 

sta puf,anf ; puffer lser 
stx puf .anf+1 

lda #2:sta kopflag 

E block einsammeln 

- stringstapel ... 

lda #513:1dx #0; beginn des stapels 


363 
365 
372 
373 
373 
377 
380 
383 
385 
387 
330 
333 
334 
395 
400 
405 
418 
ra) 
420 
des 
430 
433 
435 
/, 
440 
443 
450 
ale 
4608 
465 
478 
Nie 
273 
477 
479 
482 
4B5 
487 
490 
495 
508 
525 
512 
515 
517 
522 
585 
538 
ae} 
540 
Su 
5528 


558 
565 
578 
575 
582 
692 
623 
605 
607 
610 
E12 
613 
‚614 
615 


5552 


617 


sta zeiger 
stx zeiger+i 

strstap cmp $16 

beq vars 

jsr ver .str 

beq strstap 

s einfache variablen ... 
vers lda #7 

sta offset 

lda var ,anf 

ldx var .anf+i1 
sta zeiger- 

stx zeiger+i 

; sammeln ... 
varis cpx feld.äanf*+i 
bne var2 

cmp Feld.anf 

beq Felder 

var2 jsr ver,var 

beq varis 

H feldvariablen 
Felder sta Feld,.zei 
stx feld.zei*+i 

lda #3:sta offset 
5 sammeln i 
while lda feld.zei 
ldx feld.zei*+1 
n.feld cpx Feld.end+1 
bne nochfeld 

cmp Feld,end 

bne nochfeld 

Jmp endblock 

; Feldelemente ... 
nochfeld sta zeiger 
stx zeiger*+1 

; feldname 


ldy #8:1da (zeiger),y:tax 

iny :lda (zeiger),y:php 

s Pazdlaenge .,. ---ar2ese 
iny :lda (zeiger),y 


adc feld.zei:sta feld.zei 

iny :lda (zeiger),y 

adc Feld.zeiti:sta feld.zei+l 
plp:bpl while; kein stringfeld 
txa:bmi while 

; anz d dimensionen ... 
:lda (zeiger),y 


iny 
ldy #90 
asl a 
adce #5:adc zeiger 

sta zeiger 

bcc whileel:inc zeiger+i 
whileel ldx zeiger*+l 
whilesel2 cpx feld.zei+i 
bne element 

cmp feld,zei 

beq n.feld 

element jsr ver.str 


=— nn... -- - 2-2... 


;  puffer abspeichern ... 
endblock 1ldx unten 

lda untentl1 

stx oben 

sta oben+1 

lda kopflag 

beq blockend 
ldx puf.anf ; 
lda puf.anf+l 


pufferanfang 
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stx puf.anf+1 
Ida kop.end 

ldx kop.end+i 
sta feld.zei ; 
stx Ffeld.zei+tl ; 
jsr $a3bf 

; block fertig 
blockend ldx oben 

lda oben+1 

cmp feld.end+1:bne rep 
cpx Feld.end :beq ende 
rep jmp repeat 

; muell eingesammelt ... 
ende lda kop.anf 

ldx kop,anf+1 

oben 

stx oben+1 


neuss ende 
der strings 


; unterprogramm zum string- 
; verschieben 

ver.var sec:bcs vor.ver 
ver.str clc 

vor,ver lda unten:pha 

lda unten+t1:pha 

lda #8:sta z2:sta z2+1 

bce str2 

jsr $b5bd ; 
beq nach.ver 
str2 jsr $b5c7; einfacher string 
nach.ver lda z2:ora z£2+1 

beq end.ver:sta kopflag 

Ida $55:and #4 

lsr a:tay:sta 855 
lda puf.anf:sec ; 
sbc (z2),y 

sta puf.anf 

bes *+4 

dec puf .anf+1 

lda kop.anf:sec ; 
sbce (z2),y 

sta kop.anf 

bcs *+4 

dec kop.anf+i 

lda (z2),y:tay 
dey 

kopieren lda (unten),y 
sta (puf .anf),y 
dey:bpl kopieren 

lda kop.anf 

ldx kop.anf+i1 

ldy $55:iny 

sta (z2),y 


variable pruefen 


puf ,.anf-laenge 


kop.anf-laenge 


‚txa:iny 


sta (z2),y 

end.ver pla:sta unten+1 

pla:sta unten 

lda zeiger 

ldx zeiger+i 

ldy #8:rts 

kop.end .uor ® 

kopflag. .byt '® 

pages =(puf .end-kopflag-256)>8B 
; blockgrossse 
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c738 
c748 
c748 
c750 
c758 


‚1,c7796)57727; 4C0},56} 
-7,20,00,a2,20,a9,a0,85, 
62,84,61,61,61,91,61,c8, 
d®d,F3,86,62,ca,dd,f4,ad, 
22,63,63,c7,39,26,b5,858, 
c768 12,F7,60,40,66,07,a6, 37, 
c768B 78 a5,38,86,51,85,62,20,03, 
c770 d 84,53,86,33,85,34,38,89, 
2778 05,b0,02,39,00,c5,32,30, 
c780 ee} 26,d0,08,e4,31,b0,04,a6, 
2788 31,2a5,32,86,5F,85,60,a6, 
c738 61,35,62,8e,cf,c8,8d,d®, 
c738 c8,a9,00,32,d0,85,5a,56, 
c7a8 5b,a9,28,8d4,d1,c8,a9,19, 
c738 a2,00,85,22,86,23,c5,16, 
c7b® F0,05,20,60,c8,f0,Ff7,89, 
c7b8B 07,85,53,a5,2d,a6,2e,B5, 
c7c2 22,86,23,e4,30,d0,04,c5, 
c7cB 2PF,F0,05,20,69,08,F0,F3, 
c7da 85,58,86,59,a9,03,85,53, 
c7d8 235,58,26,59,e4,32,d®,07, 
c7ed 25,31:;00503,4G727,08385, 
c7eB 22,86,23,20,00,b1,22,aa, b:gosub 69842 
c7f8 c8,b1,22,08,c8,b1,22,65, 60828 FS="pruefsumme ok”:if sC> 
C7FfB 58,85,58,08,b1,22,65,53, h+1 then FS="[rvs] 
c8B08 85,59,28,10,d3,8a,30,d®, pruefsummenfehler”:f=f+1 
cB08 c8,b1,22,20,00,04,69,05, 60038 gosub 582852:next a:print 
c8128 65,22,85,22,390,02,e6,23, [down]"f"fehler”:end . 
c818 a6,23,e4,59,d0,24,c5,58, 60040 read hS:gosub 509850: h=1* 
c828 f®,ba,20,60,c8,f0,F3,a6, 15:hS=-mids (hs,2) 
cB2B 5f,a5,60,86,33,85,34,ad, 60052 l-asc ChS+"x”")-48:if 1<O 
c838 d1,c8,f®,1d,a6,5a,a5,5b, or 1>22 then 60080 
c838 86,5f,85,60,a9,00,a2,d2, 60068 if 1<1® then return 
c842 85,53,86,5b,ad,cf,c8,ae, 60078 1=-1-7:iF 1>5 then return 
cB48B d®,c8,85,58,86,59,20,bf, 60288 FS=-"Irwsleingabefehler”:1- 
c850 a3,a6,33,35,34,05,32,d®, O:f=-f+1 
c858 04,24,31,f0,03,4c,76,c7, 600508 print "zeile” peek (64)* 
cB60 a5,61,26,62,85,33,86,34, PS56+peek (53)FS:return 


60,38,b8,01,18,a5,5f,4B, 
a5,60,48,39,00,85,48,85, 
4f,90,05,20,bd,b5,f0,23, 
20,c7,b5,85,4e,05,4f,F2, 
39,8d,d1,c8,35,55,29,04, 
4a,a8,85,55,a5,53,38, fl, 
4e,85,53,b90,02,c6,5b,a5, 
61,38,f1,48,85,61,b9,22, 
c6,62,b1,“4e,38,88,b1,5f, 
91,5a,88,10,f9,a5,61,36, 
62,84,55,c8,91,48e,Ba,cB, 
9S1,4e,68,85,60,68,85,5f, 
a5,22,36,23,20,00,60,00, 
20,00,00,200,002,00,00,00, 


non on Do 
vb mn u m m m 
rt 


602888 For a=-5190008 to 51408 step 
8:5=B8:c=d:for b=B to 7: 
gosub 58840 

68B1® s=-s+h+1l-c:c=s>255: s=-255-s 
and 255:poke a+tb,h+tl:next 


Kombinierter Hexdump-Basiclader zu „Müllsammler“. 


Die Kesseljagd 
beginnt 


System: C64 
Typ: Spiel 


Sprache: Basic 


Fahrzeug die gefährlichen Mauer- 
felder, hat es nur noch Schrott- 
wert. Ziel ist es folglich, länger als 
der Geaner von den Mauern Ab- 
stand zu nehmen. Steuerung: 


Führerschein Klasse 3 
ist anzuraten, wenn 


Frontal fahren beide Fahrzeuge 
aufeinander zu. An jedem Punkt, 
den sie passieren, entsteht eine 
explosive Mauer. Rasch entsteht 
auf dem Spielfeld ein verwirren- 
des Labyrinth. Riskant weicht man 
gegnerischen und eigenen Mau- 
ergruppen aus und versucht, den 
Gegner einzukesseln. Berührt ein 
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man sich ins Kampf- 


mobil setzt und, dem 
Commodore entge- 
gen, in den Kampf 
zieht. 


VERWROMEZONFLTERWOR. N SON 


L 2= Hoch 
J = links 
L = rechts 
K = runter 


„Mauern 64" ist in Basic geschrie- 
ben und stellt die Grafiken mit 
den bereits vorhandenen Grafik- 
zeichen des Commodore 64 dar. 


w 


++ 


100 
118 


1508 


178 


200 
210 
230 


2828 


390 
310 
320 


3508 
359 


430 


440 
450 
4698 
470 
480 
430 
598 
5128 
520 
530 
548 
550 
5608 
578 
582 
5939 
608 
612 


goto 63838 
poke vo,3:poke s2,33:poke hf,5:poke 
sz, 32:return 

for mz=1 to 255 step 4:poke vo, 7:pcks 
sz,33:poke hf,mz:poka sz,32:next mz: 
return 

for mz=255 to 1 step -4:poke vo,7:pcoke 
sz,33:poke hf,mz:poke sz,32:next m=z: 
return 

data 169,0,141,32,208,141,33,288,1#1, 
[ee a Sr he 

data 141,2,4,169,149,141,8,221,165,5, 
41,24 

data 208,169,128,141,136,2,133,55,55, 


x(c4) ,uc4H),cc4H),dcıi1) 

i=1 to 4:read x(Ci), gli), cti):next 

i=-® to 11:read dli):next 

For i=1 to 6*49:pS=pS+" "next 

ul=192:c1=160: Fe49: p=#5: z=9:nx=-33:my= 

e4 

us=z:cs=2:w= 96: veil:1=-2:7=3:u=4:5=-8® 
1613 

print "[Celr]” tab(7)"®®s nauer bauen 
S4er #2@" 

print ”C3downic E% - wersion von f, 
bastianl3doun)"” 

print :print "ecklascsungen (3/n) ?” 

get aS:gosub S7@:if a8-"" then 119 

if aS-"n"” then 158 

if a5=-"j"” then goto 1848 

if as(>”j” then 138 

print chrs (197); "ZdcsunjJuelches level 
(e,1,2, 33l2spaces}? ” 

get sS:gosub S7@:if =8=-"" then 170 

if s5-"a”" then 2208 

if s8-"1” 

if s3-"3*” 

if s3-"2” 

goto 178 

if a5-"1” 

if s3-"2” 

if s5-"3” 

gosub S4® 

trend (-t1) 

ud=3: cd=2:c=® 

ux=19:uy=7:cm-29:04=-17 

vB=stux+fuy:cama+cı+f9%y 

get as 

if a$<>"i” and aS<k>"j)” and as<>"k” and 

as<>"]” then 358 

if aS=-"k” then dei:goto 338 

if a5=-"j" then d=-2:goto 339 

if aS-"1” then d=-3:goto 33 

d=4 

rem 

if int (Cd)<>d then 352 

ud=d 

gosub 2:gosub 829 

if peek (Ca)<>p then c=c+v 

poke uva,ul 

poke a,c(ud) 

va=a:UX-X:uy=y 

tz=ti 

gosub 859: b=a:gosub 838 

if CC peek (b) and peek (Ca))=-p) and ( 

rnd (v)<w) then 578 

t=int (1l*rnd (v))+r®Clod-v) 

h=dlt):g=dlt+v) 

gosub B5Ed:b-a:gosub 849 

if C peek (Cb) and peek (a))=p then 559 
if ht>g then h=g:goto 468 

gosub 838 

if psek (Ca)=p then 578 

t=int (l*rnd (v))+r*Ccod-v) 

h=-dtt):g=-dlt+v) 

gosub B4® 

if peek (Ca)=p then 568 

if he>g then h=g:goto 539 

cd=h 

if peek (a)<>p then c=c+l 

poke ca,cl 

poke a,c(cd) 

La=a:Ccx=x:cy=y 

if c>z then 648 

if ti-tz<tl then 628 
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1112 


1138 
1148 
1158 
1168 
1162 
1165 
1167 
1170 
290908 
7498 


7418 
63039 


63240 
639598 
63055 
639698 


goto 318 

print "Chome,rvs) ”; 

if c>v then 698 

es=-cs+1 

gosub 4:print "[clr]Isie sind ”; 
goto 768 

if c>l then 738 

us=us+1 

gosub 3:print "[clirIc 6% ist ”; 
goto 768 

US=US+v:CcSs=cs+Vv 

poke a,214 

gosub 3:gosub “4:print "[clir]Jbeide sind 


print ”"zusammengestossen | ” 

print ”"[15spacss,15Sleft]sie=-"us;” 
cE4="cs 

for i=1 to 18808:next ; 

print ”"Chome, BSdownltaste druscken 
(a=anfang, e = ende)[7down]”; 

get q$:if q$="”” then 8008 

if q$=-"a” then 1508 

if q$="e” then 2008 

goto 239 

x=-ux:yruy:d=-ud:goto 878 

x-cx:y=-cy:d=-cd:goto 879 

x=cx:y=-cy:d=h:goto 878 

x-cx+x(cd):y-cy+tylcd):d=cd:goto 879 

x=cx+xCh):y=cy+yCh):d=h:goto 872 

x=x+x(d):y-y+yld) 

if x<z then x=mx 

if x>mx then x=z 

if y<z then yemy 


if y>my then y=z 

a=ms+tx+f®y 

return 

rem spialfeld zeichnen 

print "Cclr]";p$S;p$;p$;p$S;leftSs C(p$, 
mx)"Cleft,inst].”; 

return 

wS="Cup,rvs) Coff)"” 

z5=-"Cup] ” 

print tab(33)2$:for t=® to 208:next 


print tab(33)w$S: for t=® to 228:next 

print tab(33)2$:return 

data 0,1,22,-1,2,60,1,2,62,20,-1,30 

BBER: 38,3, EL 

print "[clr ,4spaces,rvsJmauer 
C3spaces)b auvenG6Her”" 

print "Cdown] sinn des :spieles ist, 
den computer[3spaces)” 

print "durch geschicktes spurenlegen 
in einel3spaces)”; 

print "falle zu manoevrieren.”" 
print "C2spaces)sie steuern ihr 
fahrzeug mit ’i', 'J’,C2spaces)'k’ 


C2spaces)und ’1'’.” 

print "[2spaces]die richtungen sind 
wiefolgt:” 

k=-15 

print tab(k)"tCdoun,left,shift -,doun, 


left,rvsliloff ,2down, 6leftJ<CCLrvs]j 
Coff ,3spaces,rvsIl[loff]JCC>C2doun, 
Sleft,rvs]Ikloff,down, left,shift -, 
down, leftIv” 

print "dis spielgeschwindigkeiten sind 


schnell” 
mittel” 
langsam” 


print 
print 
print 
print 


"[5spaces,rvs]3loff] 
»CSspaces, rvs]2[loff] 
"[5spaces,rvsJ1loff) 
"CS5spacses,rvsleloff) ende” 
print "[Sspaces,rvs]laloff] anfang” 
print :print "taste druscken”; 

get a$:if a$="" then 1167 

goto 158 

print chr$ (147); "ende”:end 

sm=54272: hf=sm+1 : vo=sm+t24: sz=sm+4: for 
i=sm to sm+24:poks i,®8:next 

poke sm+5,8B:poke sm+5,8:return 

for i=-50000 to 50035:read a:poke i,a: 
next 

gosub 7498 


sys 58889:print chr$& (147);chr$ (5) 
print chr$ (142);chr$ (8) 
goto 38 
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336 
4803 


1462 
1362 
1612 

578 
2304 
21998 
1786 
3073 
2823 
1612 
1298 
1197 
1325 
1279 

866 

142 


3107 


142 
584 
S46 
1711 
1878 
s82 
2954 
2658 
8573 


3438 
39387 


esı2 
4595 


3363 


573 
6168 


3466 


1477 
1307 
1639 
1111 
1293 
2251 
1785 

576 
1742 
5561 


1578 
2626 


531 
e471 
1537 

431 


Praxis Listing 


Sehach-Bibliotheken 


System: C64/Laufwerk/ 
MPS803 


Typ: Anwendung 
Sprache: Basic 


Wer optimal Schachspielen trai- 
niert, spielt eigene Partien nach 
und prüft eigene Züge auf Fehler. 
Bisher war es üblich, alle Züge auf 
Papier festzuhalten, um die ge- 
samte Partie nachzuspielen. 
„Schach-Bank" speichert alle ein- 
gegebenen Züge im Speicher und 
auf Diskette. Bei Bedarf spielt der 
Computer die komplette Partie 
nach. Damit erspart man sich viel 
Schreibarbeit. Darüber hinaus 
stellt das Programm auf dem Bild- 
schirm ein Schachbrett dar, auf 
dem er die Figuren, entsprechend 
dem gespeicherten Spiel, setzt. 
Nach Starten des Laders werden 
zwei Maschinenprogramme und 
das Hauptprogramm nachgela- 
den und gestartet. 


Tipphinweise 
BBEREERUNSSSE N 2 Nee 


Dann ist der File-Name einzuge- 
ben. Nach Tastendruck gelangt 
man ins Eingabemenü. Hier gibt 
man die Partie ein: 


Form: 

„B2E4" = normaler Zug 

ElG@l- = kurze Rochade 

1B7BE9/D. = Bauernumwand- 
lung zur Dame, „../L*, 
Läufer, „./T‘, Turm 
USW, 

„E6D5EP" = en passant, „+“ für 
Schach, * „ES=P!” für 
Matt 


Oder man gibt Befehle ein: 


el: listet Befehle 

„OtrlW" dreht das Spielbrett 

„OtrlA" speichert die Partie 
auf Diskette 

„GtrlL" Auswahlmenü der 
Partien 

„CtrlD“ Drucken einer Partie 

„EtrlP" Eingabe einer Stel- 


lung durch Setzen von 
Figuren 
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Tal kontra Geller. Wie 
ging diese Partie zu 
Ende? Mit „Schach- 


Bank“ spielt man be- 
rühmte Partien nach 


und speichert die Züge 
auf Diskette. 


listet die Partie, 
„SPACE" blättert wei- 
ter, „FZ“ kehrt in die 
Eingabe zurück 
Nachspielen 
Partie 

nimmt einen Zug zu- 
rück und stellt ge- 
schlagene Figuren 
wieder auf 

ur Kommentar eingeben, 
„RETURN“ am Ende 
speichert ihn, ein „F7" 
löscht ihn 

neue Partie; sicher- 
heitshalber sollte man 
vor jeder neuen Partie 
„Ctrl N* eingeben 
Verzweigung einge- 
ben 


„F" 


EI: einer 


„OtrlR" 


„Otrl N" 


“CHE$? 


‚EtrtY" 

„Ctrl X* gibt man ein, um die Stel- 
lung festzulegen, in die das Pro- 
gramm zurückspringen soll. 

Dann gibt man die Variante ein. 
Nach Eingabe von „Ctrl Y" springt 
das Programm in die alte Stellung 
zurück, und man setzt die normale 
Partie fort. Nach „Ctrl Y" muß man 
einen Zug oder einen Kommentar 
eingeben, bevor wieder eine Äus- 
gangsstellung mit „Ctrl X" festzu- 
legen ist. Die Figuren werden fol- 
gendermaßen gesetzt: 


Figur — Position — Farbe 


„DB4AW“ = weiße Dame auf B4 

„A2W"“ = weißer Bauer auf 
A2 

„KH8S“ = schwärzer König 
auf H8 

„GIS" = schwarzer Bauer 
auf G7 


Die Reihenfolge der Figuren ist 


EI HEREENFSTERWONS.EOM 


beliebig. 

„CtrlR" löscht falsch gesetzte 
Figuren 

„OtrlW" dreht das Spielbrett 

‚EI listet Befehle 

BT beendet Stellungsein- 


gabe Stellung. Man 
kann: 
Nachspielen einer Partie mit „F5" 
oder nach Laden einer Partie. 
Es sind sieben Geschwindigkeits- 
stufen möglich: 
0 = Ziehen ohne Pause 
1-5 = die Pausen werden 
immer länger 
6 = Ziehen nur nach 
Drücken von 
„SPACE" 
Mögliche Befehle: 
„Otrl W" dreht das Spielbrett 
„GtriR" zieht Züge zurück zum 
Wiederholen 
listet die Befehle 
listet die Partie bis 
zum Spielstand 
sofortiges Ziehen 
stoppt das Programm; 
nächster Zug nur nach 
Drücken von 
„SPACE" oder „F5" 
bricht die Partie ab; 
jetzt kann man neue 
Züge eingeben 
bricht die Partie eben- 
falls ab; Partie ist voll- 
ständig im Speicher 
und kann gelistet oder 
ausgedruckt werden 


3 Fl" 
„F3" 


„SPACE" 
„F5” 


267° 


„F8" 


Druckeranwendungen: 

Das Programm fragt zunächst 
nach dem Namen der Partie. Die- 
ser darf bis zu 40 Zeichen lang 
sein. Die Druckroutine wurde für 
den MPS 802 geschrieben. Geän- 
dert wurde das Zeichen für 
„C=P" (matt), Eingelesen werden 
die Daten in Zeile 80. Die Drucker- 
daten stehen in Zeile 56 300. 


Zum Programm: 

Das Programm akzeptiert maxi- 
mal 150 Halbzüge + Kommentare. 
Längere Partien müssen in Zeile 
50 die Zahlen in den Klammern 
von VW$(.) und H(.) vergrößert 


und in Zeile 215 die Zahl nach „IF 


Z>.." angepaßt werden. 


In den 
ger als 


Programmzeilen, die län- u 
80 Zeichen sind, sind Ba- 


sic-Befehle so abzukürzen, wie es m 
in Anhang D des C64-Bedienungs- 
handbuches beschrieben ist „ 
Wichtigste Felder und Variablen: 


AR,y) 
FS(A) 
VW$@) 
H(z) 
Qsx) 
R$(y) 

Z 


AB(V) 


vosuowkewn » 


Figurennummer auf 
Feld x/y ä 
Figuren und Leeriel- 

der 

speichert alle Züge ıy 
und Kommentare 
speichert Figuren- xy 
nummern 

setzt Cursor in x-Rich- 
tung auf Feld A—H 

setzt Cursor in y-Rich- 
tung auf Feld 18 

zählt alle Züge und 
Kommentare Ei) 
zählt die Züge 

zählt die Eingaben der 
Figuren 

zählt die Züge bem 
Listen und Drucken 

zählt, wie oft eine Stel- 


lung gespeichert wird ha, f5, f6 und f7 werden nur kurz- 
merkt sich die alten zeitig in Unterprogrammen ge- 


Zugnummern braucht. 


goto 1@bittsalle rem -zeilen und alles 
zeilen bis 5 weglassen 

“u... 

“ss#schach-bank®®=s 

*#s19B6von®®® 

“s“sulrikafranz##es 

*“sskirchstr ,10®%® 

“*#s5531l1oberdiebach®*#*+# 

*#*ta] ,067432578®®® 

Runen 

poks 56576, 21 

poke 648,132 

poke 53272,18 

poke 56,128:clr 

vo=-53248:dim a(8,8),f$(25), vwS(158), 

hc150) , vz$(32):ik=19:ki=43151 


D poke 20840,8:poke vc+23,1:poke vco+33,2 


gosub 5500d:gosub 490008 

for i=1 to 6:read a:upS=up$+chrS (a): 
next 

u=d:uu=9: v-d:w=d: Fl=-B: vu=ß:ni15="":n28= 
»», ly-o 

for i=1 to zıvwS(li)="":hli)=B:naxt :z= 
®:for i=1 to vz:vzSCi)="":next :vz=® 
gosub 30008: gosub 301398 

rem 

rem ***#% singabe *+##“ 

rem 

gosub 38108: print ”Chome, 7down)"”qis+ 
”’## Crvsleingabeloff] **";q1$”"Cdown) 
befehle oder ”; 

print ql$”zug eingeben ”;q1$+”[2doun, 
left]”;int CCvwt2)/2);”C[Ccbm @,left]”; 
a"d:i5=-"":£9-2 

a$=-"":gosub 5408:if ha then 128 

if a$-"[Cctrl a]” then gosub 9008: gosub 
38849:goto 128 

if a$=-"[ctrl 1]” then gosub 8988: a$-"” 
[f5]”:goto 268 


dD if aS=-"[otrl d]” then gosub 19092: 


gosub 38848:goto 128 


Wichtigste Flags 


wird 9, wenn das Brett 
gedreht wird 

ist dasselbe für den 
Sprite in y-Richtung 
wird gesetzt, wenn ein 
Zug zurückgenommen 
wird 

wird gesetzt, wenn 
eine AÄnfangsstellung 
eingegeben wurde 
wird 1, wenn der |. 
Zug ein schwarzer ist 
wird 1 bei Laden des 
Auswahlmenüs, wenn 
keine Partie geladen 
wurde, damit das Pro- 
gramm danach wie- 
der in die Eingabe zu- 
rückspringt 

wird 1 bei einem Feh- 
ler, damit das Pro- 
gramm aus einem Un- 
ter-unter-Programm 
wieder in die Eingabe 
zurückkehrt 


(Ulrik > Frei ee Ä . 


if a$="[ctrl n]” then run 

if a$-"[rvs]” then gosub 6888:goto 128 
if z>14B then print "Chome, 16down]” 
ql$”"C[rvs]speicher volllofFf)J”+qiS+” 
Cdownlbitte befiehl”:goto 138 


if a$=-"[Cctrl pJ” then fl=1:for i=1 to 
8:for j=1 to B:ali,jJ)=®:next :next : 
gosub 30848:gosub 589%:goto 1228 

D if aS="[otrl x]J” then if rights 
(vw$(z),1)<>”"C[Ccotrl x1” then vwS(z)- 
vuwSs(lz)+”Cctrl x]”:gosub 65808:goto 1208 
if a$=-"[otrl y]J” then vwSlzj=-vwSCz)+” 
[ctrl yJ+”:gosub 6700:goato 120 
if a$="[£f3]” then gosub 5098: gosub 
30849:goto 120 
if aS="C£fSJ” then gosub 49008:goto 128 
if a$="®" then gosub 7000:goto 128 
gosub 5500:if ha then 139 
if a$=chr$ (13) then print ” ";:2=z+1: 
goto 349 
if asc (a$)<>175 then if (C asc (as)< 
43 or asc (a$)>98) then 1398 
a=-ati:if a>7 then 120 
print a$”[cbm @, left]”;:i$-i$+as 
goto 138 
rem -- zugeingabe kontrollieren --- 
if a<4 or a>7 then gosub 396:goto 129 
For i=1 to 4:j=ssc ( mid$ (i$,i,1)):if 
Ci=1 or i=3) and (j<65 or J>72) then 
gosub 396:goto 129 


if Ci=-2 or i=4) and (j<439 or >56) 
then gosub 396:goto 128 
next 
if a5 then if mid$ (i$,5,2)<>"ep” and 
mid$S (i$,5,1)<>”/" then gosub 396:goto 
128 
"j£E a=5S or a=7 then if C rightS (iSs,1)? 
>”+”" and right$ (iS,1)<>”"C[Ccbm p]”) 
then gosub 396:goto 128 

385 gosub 2088: if FS then 120 
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3998 


395 
396 


497 
438 
493 
528 
585 


gosub 1882: gosub Bass 3029: gosub 
35088%:goto 128 

rem ses a enidung ..... 

print "Ihome, 16down]”qi1$”[rvs]fehler 
[offJ*:z=z-1:poke 198,0:wait 198,1: 
poke 158,8:return 

ren 

rem ®®es®s nroblemstellung **++*» 

ren 
vz=B:vz$lvz)="":2z=9:vwSCzZ)="":v-d:vw=d 
gosub 30108:print "Chome , 24down]"+q1$+ 
”f7 = eingabelhome)”; 

print "Chome, 7down)”+q1$”* [rvs] 
stellungloff] * "+q1$”[Cdown] 
problenstel- ”; 

print ql$”lung eingeben”+q1$”[2down, 
cbm @,left]”; 

B=d:a5="",jg="r 

gosub 5408B:if ha=1 then 505 

if a$="[C£7]” then gosub 6508: return 
if a$="Crvs]” then if vz>® then b$= 
mid$ (vz$(vz),len (vz$S(vz))-2,2):gosub 
1508:alx,y)=-2:gosub 2590 

if a$="[rvs]” then if vz>® then print 
EFSCE):vZECvZI="":vz=vz-l:goto 595 
gosub 5508:if ha then 528 

if a$=chr$ (13) then print ” ”:goto 
608 

if C asc (a$)<4S or asc (a$)>87) or a> 
5 then a$="":goto 520 

a=a+l:print a$"[cbm @,left]”; :4$=iS+aS 
goto 528 

if a<3 or a>4 then z=z+i:gosub 396: 
goto 585 

i=®:k=-®:if a=3 then k=1:i=-1 

i=-i+1:if i>4 then 668 
j-asc ( midS (iS,i-k,13):if i=-1 and (jJ 
<65 or >84) then z=2+1: gosub 396:goto 
585 

if i=-2 and (365 or 4>72) then z=z+1: 
gosub 396:goto 525 

if i-3 and (3<£4S or 1>56) then z=z+1: 
gosub 396:goto 5285 

if i-4 and j<>83 and 3%>87 then z=z+1: 
gosub 396:goto 585 

goto 628 

gosub 858 

goto 505 

rem 

rem *##4# Figur setzen ###.. 

rem 

vVz=rvz+l:vzSlvz)=-is 

g$S-rightS (vz$(vz),1) 

if len (vz$(vz))=3 then 5998 

bS=-midS (vz$(vz),2,2):gosub 15988 
h$=left$ (vz$Cvz),1):if hS="k" then 
alx,y)=-5:goto 958 

gosub 5308:if ha then 358 

z=z+1l:gosub 396: vz$Cvz)="";vz=1z-1: 
return 

b$=left$ -(vz$(lvz),2):gosub 1598 
alx,y)=1 

if g$="s” then alx,y)=alx,y)+6 

gosub 2508: print F$(f):return 

rem 

rem een zug “a 

rem 

b$=-left$ (i$,2):gosub 1590: x2=x:y2=y 
Fe=alx2,ye):if vw=1 then if w=® and 
(f2>6 and F2<13) or f2>19 then vw=2:1y 
-1 

bS-mid$ (i1$,4,2):gosub 1500: x3=-x:y3-y: 
£F3-a(x3,y3) 

xex2: y-uB: alx2,y2)=®d:if w then if mids 
(vwS(z),3,1)="x” then alx2,y2)=h(z) 
gosub 2509:gosub 1600d:print FSCFf) 
x=x3:y=-y3:alx3,y3)=f2:gosub 2599 
print F$Cf):gosub 1698 

return 

rem 

rem ***+ position *###* 

rem 

x=asc (bS)-64:y=val ( right$ (b$,1)): 
return 

rem 

rem ***%* sprite setzen **** 
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rem 
poke vc,32+C abs (u-x)-1)*24:poke vor 
A,50+C abs (uu-y)-1)*24 

for i=® to 1:poke vc#+21,1:for t=1 to 
208:next :poke vc+21,8:for t=1 to 100: 
next 

next i:return 

rem 

rem ***# singabe kontrollieren und spe 
ichern *+*# 

rem 

b$=left$s (i$,2):gosub 1509:gosub 259: 
if £=-® or f=13 then FS=1:gosub 396: 
return 

bS=-mid$ (i$,3,2):gosub 1508: gosub 
85008: a2$5="-":h(z)=® 

if F<>® and F<>13 then az$="x":hlz)-f 
iS-left$ (i$,2)+taz$tright$ (i$,len 
(i$)-2) 

vwS(z)=-iS: vwevw+il 

return 

rem 

rem **## cursor + Figurennummer *##%* 
rem 

fralx,y) 


DB print r$C abs (u-y))+qSC abs (u-x)); 


if CCx+y)/2)<>int CCx+y)/2) then if Fi 
13 then F=f+13 

if CCx+y)/2)=int CCx+ty)/2) then if F> 
12 then f=f-13 

return 

rem 

rem *#**#* an passent **** 

rem 

if mid$S (vwS(z),6,2)<>”ep” then return 
if y=5 then y=5:goto 3958 


DB if y=3 then y=4:goto 3059 


vws(z)=-left$ (vwS(z),5):gosub 6908: z=z 
+1 

gosub 396: return 

x=x3:a(x,y)=d:gosub 2598:print FS(cf) 
vuslz)=lefts (vw$(z),2)+”"x”+right$ 
(vwS(z),len (vw$(z))-3) 

return 

rem 

rem ***= bauernumwandlung *#=+ 

rem 

if mid$ (vwS(z),5,1)<>”/" then return 
hS=-midS (vwS(z),7,1):gosub 5308:iF ha 
then 3588 

vus(z)=leftSs (vwS(lz),5):gosub 6000: z=z 
+1 

gosub 356:return 

if y=-i1 then alx,y)=alx,u)+6 

gosub 25808:print FSCf):ha=9 

return 

ren 

rem ®®#® nachspislen *### 

rem 

if ky then gosub 30040: ky=-®:return 

if fl=8 then gosub 30009 
vu=r®:i2=z:vi=v:if Fl then gosub 6709:v 
-1 

ttS=-"":poke 214,7:print :print 
giS”"geschwind,.”:print :print q18"”0-6”; 
poke 158,8:wait 198,1:get tt$:tt=val 
Ctts) 

if asc (ttS)<48 or asc (tt$)>54 then 
42830 

rem ---- schleife ---- 

For z=1 to i2:j=1:f5=9:ha=d:gosub 
30188 

if left$ (vw$(z),1)="*" then gosub 
4508:goto 4150 

if z>i2 then poke 214,7:print :print 
ql$"partie-ende”:poke 198,0:wait 188, 
l1:return 

iS-"";vwevw+l1 

poke 214,7:print :print q1$; "Lleft]”; 
int ((vw+1)/2);vw$(z) 


> iS-vuS(lz):gosub 19889 


gosub 75808:gosub 3089:gosub 3598 

if right$ (vw$(z),1)="Cotrl x]” then 
gosub 6598 

if right$ (vw$(z),2)="[ctrl yJe” then 
poke 158,8:wait 1S8,1:gosub 6708: poke 
198,0 


2481 
1686 
1534 
3856 


1929 
513 
4463 


142 


4178 
4197 
4290 
4205 


4215 


4220 
42308 
4233 


4234 
4235 
4240 
4258 
42608 
4497 
4498 
4499 
4500 
4518 
4520 
4538 


4540 
4558 
45698 


4578 
4997 
4938 
4333 
5902 


5918 
5015 
5928 
sp24 
Ss225 
5927 


5838 
5833 


5035 


5037 
50490 
5058 
5060 
5078 


5088 


5038 
52937 
5238 
5299 
53008 
5318 
5329 
5338 
5340 
5397 
5398 
5399 
5400 
5418 
5420 


5430 


S44D 
S459 
55090 
5510 
5520 


5538 


WWW-MOMECONDUTERWORLD. COM 


if £fS5S then 4258 

rem ---- warteschleife ---- 
t-tt*tt*59:get a$:gosub 54208 

if a$="[rvs)” then fF8=1:gosub 6098: FE- 
0: 3-1 

if aS-"[f3]J"” then gosub 5909: gosub 
IORHB9:goto 4250 

if a$-"[£7]”" then return 

if a$"-chr$ (32) then 4250 

if a$-"[£f5]” then poke 19B,8:wait 1585, 
1:goto 4258 

if aS=-chrS (140) then z=i2:vevi:-return 
if tt=6 then 4200 

J=-3+ti1:if jJ<t then 4208 

next z 

z=z-l:return 

rem 

rem *### kommentar ausgeben *=»*» 

rem 

ii=9:f5-0 

poke 214,7:print 

ii=-ii+1;if ii>6 then 4558 

if (cii*13)>=len (vwS(z)) then print 
qlS+right$ (vwS(z),C len (vwSlz)))-Cii 
-1)*13-1):goto 4558 

print qiS+midS (vwS(z), Cii*13)-11,13); 
goto 4528 

if rightS (vwS(z),2)<>”[Cotrl yJ«” then 
poke 198,8:wait 158,1:poke 198,0 
£fS5=-1:return 

rem 

ram *##® nartie listen **** 

rem 

print "C[clr, down, Sspacas]***= [rvs] 
zuege der partie [off] ***“*[down?” 
i=1:is=-27:az=0:dz=d:f6=0:f7=0:ha=d:if 
ly then az=1:is=28B 

print "zurusck ins hauptprogramm mit 
f7Cdown]” 

if i=-z then if leftS (vwSli), 1)J="#” 
then print :print vw$Ci):goto 5948 

if right$ (vw$Ci),1)="[ctrl x]” then 
£6-1 

if right$ (vw$S(i),2)="[ctrl yJe” then 
E71 

if left$ (vw$Ci),1)=”"*” then gosub 
7688:gosub 7788: is=-is+l:goto 59048 
az-az+l:if F&E then gosub 7698 

if (az/2)<>int (az/2) then print ((az+ 
1)/2):print "Lup,18right]”vw$(i) 

if Caz/2)-int (Caz/2) then print ”[Lup, 
2drightI”"vw$(Ci) 

if £F7 then gosub 7708 

if i<=-is and iz then i=i+1:goto 5929 
gosub 5608 : 

get a$:if a$=-""” then 5068 

if a$=chr$ (32) then if i<z then i=i+ 
1:is=is+28:print "C[clr]”:goto 5915 

if a$=-chr$ (136) or (a$=chr$ (32) and 
i>=z) then return 

goto 5068 

rem 

rem mm up figur .n.. 

rem 

ha=-d:if h$5="1" then alx,y)=2:ha=1 

if h$S="t"” then alx,y)=3:ha=-1 

if hS="s” then alx,y)=-4:ha=ı 

if h$="d” then alx,y)=6:ha=1 

return 

rem 

rem #### up get-routinen *#### 

rem 

ha=® 

poke 188,8:wait 198,1:get a$ 

if as-"[otrl wI” and u=® then u=9:uu= 
d:gosub 38040: ha=1:return 

if a$=-"Cctrl wJ” and u=S then u=Bd:uu= 
9:gosub 30048: ha=1 

if a$="C£f1])” then gosub 301398: ha-1 
return 

ha=® 

if a$=-chr$ (20) and a=® then ha=1 

if a$=chr$ (28) and a>® then print "” 
[left,2spaces,2left,cbm @,left]”;:is- 
left$ (i$,len (i$)-1):a=a-1:ha=i1 
return 


"[l®spaces)seiter mit 


rem *%#®® zug zuruecknehmen #e=s 

rem 

if z<1 then return 

if vw<1 then z=d:return 

if ly then if vw<2 then z=O:return 

if right$ (CvwSlz),2)="[otrl yJ+-” then 
return 

w=1:if right$ (vw$(z),1)=-"[otrl x7” 
then vev-1 


"jf FB then if leftS CvwSlz), 1)="#" 


then z=z-1:w=®:goto 6000 

if F8=-® then if left$ (vwSlz), 1)=-"#r 
then vwS(Cz)=-"":z=Zz-1:u=d:goto 6009 
iS-mid$ (vwS(lz),4,2)+midS (vw$(z),3,1) 
+leftS (vw$S(z), ED 

gosub 1000 

if left$ (vw$(z),5)=-"el-gl” and 8(5,1) 
-5 then iS-"Fi-hir: gosub 1008 

if left$ (vw$(Cz),5)=-"eB-gB” and a(5,8) 
=11 then iS="FB-hB”:gosub 19000 

if left$ (vw$Cz),5)="sl-c1” and a(5,1) 
=5 then i$="di-al”:gosub 1900 

if left$ (vu$(Cz),5)="sB-cB” and a(5,8) 
=-11 then i$=”d8-a8”:gosub 1999 

if mid$ (vw$(z),6,2)=”ep” then gosub 
6109 

if mid$S (vw$(z),6,1)="/" then gosub 
6298 

if F8-® then vwSCz)="":hlz)= 9 
z=z-1:vw=vw-1 

w=-d:return 

x=xB:alx,y)=1 

if y=5 then alx,y)=7 

gosub 2508:print FSCf):return 
alx,y)=1:iF y=2 then alx,y)=7 

gosub 2508: print F$SCf):return 

rem 

rem **+#% stellung merken *#*» 

rem 

v-v+l:ab[(v)=vw:k-ki+lv-1)*64 

for i=-1 to B:for j=-1 to 8 

poke k+(i-1)*8+j,a(i,j) 

next j:next i 

return 

rem *%%4#% stellung lesen *##«* 

if v<1 then return 
vw=ab(v):k=ki+Cv-1)*64 

For i=1 to B:for j=-1 to 8 

ali,j)=-peek (k+li-1)*B+J) 

next j:next i 

v-v-1:gosub 398049 

return 

rem 

rem *#=# kommentar eingeben *###* 

rem 

a=d:aa=1:z=2z+1:vwSlz)="#":hlz)=D 
gosub 30108:priht "Chome, 24down]”;q18$; 
”£7 = eingabe[lhome]”; 

print ”"Chome, 7down)”;q1$;”* [rvs] 
kommentarloff] *Cdown]”;q18; ”’Cchm @, 
left)”; 

ara+tl:as-"" 

poke 198,0:wait 198,1:get a$ 

if aS=-chr$ (136) then vwS(lz)="":hlz)- 
8:z=-z-1:return 

if aS-chr$ (20) then gosub 7189:goto 
7030 

if a$=-chr$ (13) then return 

if asc (a$)<32 or asc (a$S)>SS or asc 
(a$)=-34 then a$="":goto 7939 

if aa>6 then a$="":goto 79038 

if ad=13 then aa-aa+l:print a$;:print 
qi1$”[cbm @,left]”;:a=-d:goto 7994 
print a$+"[cbm @, left)”; 
vuslz)=-vwSlz)+as:goto 7929 

return 

if aa=-l and a=1 then a=1:a$="":return 
if a=1 and aa>l and aa<B then aa=aa-l: 
a=14:print ” Cup,ilright] [left,cbm @, 
left]”;:goto 7139 

print "Cleft, spaces, 2left,cbm @,left] 


Praxis Listing 


vwS(z)=leftS (vuwS(z), len (vwS(z))-1):8 
=a-1:return 

rem 

rem ***@ rochade ss 

rem 

if left$ (vuSt2),53-"si-c1” and 
=5 then iS=-"=1l-Ji"-gosub 19888 
if lefts (wuSiz) 53=-"s8-cB” and 
=11 then iS="a5-8"-gosub 1990 
if leftS (wwStz) ,5)-"si-g1” and 
=5 then iS-"Hi-Fi”:gosub 1908 
if leftS (wutz), 5)-"sd-gB” and 
-11 then is "IS-FB":gosub 19988 
return 

rem 

rem #%# zicrummer merken bei listen + d 
ruckem 

em 


a(3,1) 
a(3,8) 
a(7,1) 
a(7,8) 


if fi then return 


dr=ö2+1-caldz)=-az: f6=-B:return 

if ?7«-® then return 

if ma=9 then print :print "fortsstz.:” 
if Fa=i1 then print#4:print#4,chr$ 
(1S)"1@*; *fortsetzung” 

ar--ztdz):dz=dz-1:f7=-®:return 

zer 

rem ®%###s nartie auswashlen **=# 

ren 

print "[clr,down, 7spaces]***## [rvs] 
sartienliste [Loff) ***+**L[down]” 

print "[Cdown] welche partie soll 
geladen werden?[down]” 

gosub S600:0open 15,8,15, "i®”:gosub 

S588:if nm then ky=i1:return 

open 1,8,0,”$:*-s”:get #1,a$,a$ 

get #1,a$,a$:if st-64 then close 1: 

close 15:gosub 5608: poke 198,08:wait 

198,1:ky*-l:return 

get #1,a$,a$ 

Fis“"",4=9 

J"j+ti:get #1,a$:if a$=chr$ (34) then 

as=-chr8 (32):k=j-5 

Fi$-fi$+aS:if a$<>”” then 8060 

if left$ (fi$,3)<>”[C3spaces]” then 

8030 

print mid$ (fi$,5,16); "C2spaces, red] 

laden (j/n)Luht]”; 

poke 188,8:wait 198,1:get a$ 

if a$=-"n" then print ” nein”:goto 8039 

if aS="j" then print ” jJa”:close 1: 

close 15:na$-mid$ (Fi$,5,k):fl=-9:1ly=?2: 

goto 8508 

goto 8108 

rem 

rem **#% partie laden ***» 

rem 

open 15,8,15 

open 2,8,2,”8:”+na$+”,s,r” 
input#2,fl$:fl=val (FlS):iF fl then 
gosub 8688:iF nm then return 
input#2, vvS:z=val (vv5) 

for i=-1 to z 

input#2, vw$Ci) 

input#2,vvS:hli)=val (vv$S) 

gosub 95988:if nm then return 

next i h) 

close 2:close 15:rsturn 

v=-1:Ffor i=1 to 64 

input#2,vv$:poke ki+ti,val (vv$) 
gosub 9588: if nm then return 

next 

return 

rem 

rem **%# nartie speichern **#+= 

rem 

print ”[clr,down, 5spaces]****#* [rvs] 
speichern [off] *****[down)” 

print ”[C2down,red) name der partie :”: 
print ”[2right, wht]”na$”Chome, 6down]”; 
:input na$ 

print ”Cdown] bitte warten..” 

gosub 36988 

open 15,8,15, "iB”":gosub 9598:if nm 
then return 

open 2,8,2,”8:”"+na$+"”,s,w” 

print#2,str$ (fl):if fl then gosub 

S180B:if nm then return 

print#2,str$ (z): 


104 UM Tuni/87 
WERE TRWORD:ZON 


4657 
4342 
47593 
4536 

142 


1054 
2484 
1058 
2423 
3526 


2268 


3399 
3838 
4388 


2494 
5493 


883 
1064 
3178 


8475 
1955 


2843 


1959 
2383 
S5oB2 


577 


1060 
2068 
3335 


19568 
763 
10508 
1903 
1143 
276 
835 
1461 
2382 
1149 
138 
ı42 


2812 
4930 
1235 

603 
3863 


2148 
EB65 


9969 
3979 
3075 
9080 
elWels] 
9035 
9108 
9119 
3129 
9138 
3497 
9498 
9433 
3598 
9510 
9520 


3539 


S548 
9558 


2121417} 


9618 
3629 
9638 
99397 
9398 
9993 
12000 


120108 
100208 
10038 
10040 


10059 
10060 


100865 
19078 


10074 
10075 
100808 


12082 
10083 
10885 
19230 


18932 
10035 


18037 


10100 


18105 
10197 
12118 
18138 
190133 
1902090 
10210 


12398 
29397 
295938 
29993 
32088 


39210 
39928 


32838 
38037 


for i=1 to z 

print#2,vwS(Ci): 

print#2,str$ Ch(i)): 

gosub S580@:if nm then return 

next i 

close 2:close 15:return 

for i=1 to 64 

print#2,str$ C peek (ki+i)): 

gosub 9508:if nm then return 

next :return 

rem 

rem ***®= Jjiskettenfehler ***« 

rem 

input#15,nm,nm$, em, fm 

if nm=-® then return 

print :print "[rvsldiskettenfehler: 
Coff)”:print :print nm,nm$;em;fm:close 
2:close 15 

print :print ” bitte fehler beheben 
und taste drusk-” 

print ” ken zum wiederholen” 

poke 198,8:wait 198,1:open 15,8,15,”i” 
close 15:return 

open 1,8,2:close 1:if st<® then print 
” Cdown,rvs]lbitte Floppy einschalten 
und£LoffJ”:goto 3628 

return 

print ” [CrvsJeine taste drusckenloff]” 
poke 198,8:wait 198,1:return 

rem 

rem **## nartie drucken *##s 

rem 

print "C[Cclr,down, Bspaces]***** [rvs] 
drucken [off] ***eeldgoun]” 


input ”[down] name der partie : ";na$ 
input ”spieler weiss, schwarz?”;n1$,n2$ 
print ”Cdown] drucker eingeschaltet?” 
print ” wenn ja, bitte taste druscken 


1% 
poke 138,8:wait 198,1 
open 4,4: print#4,chr$ (16)”38” chr$ 
(14)na$ chr$ (15):print#4,chr$ (13) 
print#4,chr$ (16)"15”"n1S;chr$ (16)”40” 
n2$;chr$ (13);chr$ (13) 
az=-d:dz=-®:up=-®: F6-9:F7-®:if 1y then az 
-1 
rem ---- schleife --—- 
for i=-1 to z 
if i-z then if leftS$S (vwSCi),1)="#" 
then print#4,chr$ (13):print#4,chr$ 
(16)”"10”vuSCli):goto 190118 
pi right$ (vw$Ci),1)="[Cotrl x]” then 
-1 
3 right5 (vw$(Ci),2)="[Cctrl yJ+*” then 
= 
for J"6 to 9:if midS (vw$(i), J,1)=-chr$ 
(175) then gosub 10288:next J 
if left$ (vw$Ci),1)="®" then gosub 
7608:ha=-1:gosub 7788:ha=-®:goto 19119 
az-az+l:if F&6 then gosub 7698 
if (az/2)<>int (Caz/2) then print#4, 
ehr$ (16)"8” int CCaz+1)/2) chr$ (16) 
chr$ (10) 
if (az/2)<>int (Caz/2) then print#4, 
chr$ (16)”"15”"vw$SCi) chrS (16) chr$ 
(19) 
if Caz/2)-int (az/2) then print#4,chr$ 
(16)”"40"vwSCi) 
if f7 then ha=l:gosub 7708:ha-® 
if up then gosub 19388 


next i 
print#4:closs 4,4:return 
rem ---- mattzeichen ---- 


up=i:ha$=vwSCi) 

vwSCi)-left$ (vw$Ci),j-1)+chr$ (B)+up$ 
+chr$ (15)+right$ (vw$Ci),len (vw$(i)) 
-j):return 


vwSCup)=ha$:up=®:return 

rem 

rem *** anfangswerte *** 

rem 

for i=1 to B:for j=-1 to B:ali, j)-®B: 
next :next 


a(1,1)-3:a(02,1)=-4:a(3,1)=-2:aC4,1)=-6: 
8(5,1)-5:3(6,1)=-2:3(7,1)=4:a(8,1)-3 
for i=1 to B:a(li,B)=-ali,1)+6:next 
For i=1 to B:ali,2)=1:a(i,7)=7:next 
rem 


1186 
1134 
1149 
276 
835 
833 
1344 
1149 
304 


2008 

907 
Ss254 
3628 


2631 
3483 


5867 
142 


E466 
1822 


25B6 
2315 
3266 
24008 
2886 


1588 
4041 


46190 
3583 

763 
5203 
2270 
2203 
4467 
4808 


2027 
5208 


5414 


3751 
2031 
938 
276 
877 
1512 
5718 


15569 


2333 
7186 


2883 
2662 


30089 
30039 


30837 
300838 
30033 
301908 


30101 


30102 
30103 


30185 
30110 


30115 
30127 
30128 
30129 
30138 


30148 
30145 
39159 


30155 
39015608 


30165 
38170 
30175 
30177 


30178 
30180 


30185 
30187 
30188 
30190 
30195 
390208 
30210 
30215 
39220 
30230 
39240 


30259 
303937 
30938 
30933 
400008 


49018 
40050 
559396 
55997 
55938 


rem *** spielbrett aufstellen **# 

rem 

poke 53280,3:poke 53281,8:print "Teir] 
”::Ffor i=® to 23:print *frvs,red3 ” 
ql1$”[3left,rvs) ”:next 

print ”"[rvs, red, 26spaces, home)“ 

for y"=B to ? step -i:print "Irvs, left) 
” abs (u-yI”Coff,3left] “+gIS+"T3left, 
rvs]” abs (u-y)”C[Coff,3left) [Zdoun)”: 
next 

print ”"[rvs,left}” abs (i-1)”[off, 
3left] "qis"[C3left,rvs}3” ebs (u-1)” 
Loff,3left) [Cdown]” 

For x%=1 to 8:print "[2right,rvs]” chrs 
(E4+abs (u-x)); :next :print "Chome]”; 
x=-1:y=1:gosub 2588:print FSC9) 

For y=1 to B:for x=1 to B:gosub 2588: 
print FSC£f)"Chome)”; :next :next 
x=-l:y=-1:gosub 2508:print fSCf)"Chome)” 
rem 

rem **%* kommentarseite loseschen *** 
rem 

i=len (na$)-12:if len (na$)>11 then 
print ”"Chome, down, rvs]"”qlS+leftS (naS, 
12):if i>12 then i=12 

if len (Cna$)<12 then print ”Chome, 
down, rvsJ"”qi$+naS+leftS (ik$,13-len 
(na$)) 

if i<=® then print qi$+ik$ 

if i>® then print ql$S+”[rvs]”+mids 


‚cna$,13,i)+left$ (ik$,13-i1) 


for i=1 to ik:print qi1$+"[13spaces)”;: 
next 

print ”Chome, 24down]"+q1$+”f1-befehle 
C2spaces, home] ” 

return 

rem 

rem **® befshle listen *** 

rem 

print ”Chome, down]”q18”Lwht]Jschach- 
bankl2spaces]"; :print qi$”"[2spaces] 
1986 vonC3spaces)”; :print q1$”ulrike 
franz” 

print q1$”Cdown]** CrvsIbefehlsaloff] 
“un, 

print qi$S+"ctrl[lred)llwht]=laden 
C2spaces)”; 

print qi$+"ctrllredlJalwht]=save 
C3spaces)”; 

print qi$+”"ctrllredJd[lwht]=drucken”; 

print q1$+"ctrl[lredIn[Lwht]=neus 
C3spaces)”; 

print gqiS+r"[6spaces)partie "”; 

print qi$+"ctrllredIrluwht]=zug zu-”; 

print qi$+"[2spaces)]ruscknshmen”; 

print q1$+"ctrllredIx[Cwht]+CredIylwht] 

=stel-”; 

print qi1$+"[2spaces]llung merken”; 

print qi$+”"ctrl[lredJwLwht)=brett 

C2spaces)”; 

print qil$+"[6spaces]Idrehen ”; 

print qi$S+"ctrl[redIp[luht]=stell. ”; 

print q1$+”Cred]*[wht]=kommentare ” 

print qi$S+"[red]filwht]=befehlsl. ”; 

print q1$+"[redJf3[wht]=partienl, ”; 
print qi$S+”CredJfSCuwht]=nachspiel ”; 
print q1$+”[redJf7Lwht] = eingabe ”; 
print qi$”[13spaces)”; 

print qi$"CrvsJdrueck spaceloff,home]” 
poke 198,2:wait 198,1 

print ”Chome,down, rvs]”q1$+”"[12spaces] 
print qi$S+"”"[rvs,12spacses]”;qi1S”[Loff, 
13spaces, home)”; 

return 

rem 

rem *%% anfang *** 

rem 

print chr$ (8); "Cclr,down, wht] name 
der partie : max 16 buchstaben”: nas- 
chr$ (32) 

input na$ 

return 

rem 

rem *** figuren *%** 

rem 


ssı1@ 
56115 
55120 
S6125 


56168 
S6165 
56178 
56175 
56188 
56185 


56197 
56138 
561393 
562008 


s6222 
56205 
562198 


Ss6228 


ss222 
56238 


SE240 
56258 
56237 
56238 
56233 
563988 


ren auf schwarzen feldern --- 
FSI@)=-"[uht, 3spaces, down, 3left, 
Sspaces, doun, 3left, 3spaces]"”: rem lser 
FSC1)="[uht) @ Cdoun,aleft] £ [down, 
SleftjtIrvs,cbm o,0off]#":rem weisser b 
zer 
FS(2Z)="[Luht) $ [Cdown,3left] % Cdouwn, 
Sleft]aälshift *]”:rem w laeufer 
?5(3)=-"[wht)JBCD[dowun,3left] [Crvs)+ 
Coff) [Cdoun, 3leftlJEAF”: rem w turm 
FSC4)="Luht] G [down, 3left]HlJCdoun, 
Sleft]KLMN”:rem w springer 
?S(5)-"[wht] N Cdown,3left]J0PQLdowun, 
Sleft]RAS”:rem w koenig 
£S(65)-"[Cwht]TUVLdoun, 3lsftJWLrvs] 
Coff]X[Cdown,3left] A ”:rem w damea 
fS(7)-"Lwht] Y Cdown,3left] 2 [Cdoun, 
3left,shift +,cbm -,shift -I” 
fSCB)=-"Lwht] [CpiJ Cdown,3left] Ccbm *) 
Cdown,3left,cbm k,chm i,chm t]” 
£fS(S)=-"Luht,chm g,cbm +,cbm m,dowun, 
Sleft] [Ccbm qI [Cdown, 3left,cbm £, 
shift £,cbm n]” 
FS(C10)-"Lwht] Ccbm d] Cdown,3left, 
cbm z,cbm s,cbm a,down,3left,cbm e, 
cbm r,cbm w]” 
£Sc11)=-"Cwht] N Cdown,3left,cbm h, 
cbm J,cbm l,down,3left,cbm y,cbm u, 
shift @]” 
£ESC12)="LCwhtITCcbm FlVLdoun,3left, 
cbm c,cbm x,cbm v,down,3left) [Ccbm b]J 


rem --- auf weissen feldern --- 

£SC13)-"Crvs, wht ,3spaces,doun,3left, 
3spaces, down, 3left ,‚3spaces, off)” 
EFSC14)=-"Crvs,wht] Y Cdown,3left) 2 
<down,3left,shift +,cbm -,shift -, 
off)” 

fsc15)-"Crvs,wht] Cpi] Cdown,3left) 
Ccbm *] Cdown,3left,cbm k,cbm i, 

cbm t,off)” 

£FSt16)=-"[rvs,wht,cbm g,cbm +,cbm m, 

down,3left] Ccbm q] Cdown,3left,chbm £, 

shift £,cbm n,off]J” 

Fsc17)=-"Ervs,wht] Ccbm d] Cdown,3left, 

cbm z,cbm s,chm a,down,3left,chbm e, 

cbm r,cbm w,off)” 

fSC18)=-"[rvs,wht] N Cdown,3left,cbm h, 

cbm j,cbm l,down,3left,cbm y,cbm u, 

shift @, off)" 

FSC19)=-"Lrvs, whteIJTCchbm FlVCdoun, 3left, 

cbm c,cbm x, cbm v,down,3lsft] Cobm b] 
off)” 

fSC20)=-"Crvs,wht] @ [Cdown,3left] £ 
Cdown,3left]tloff,cbm a,rvsJ#loff)” 

FSC21)-"[rvs,wht] S Cdown,3left] % 
Cdown,3left]J&A[lshift *,off)” 

fFSC22)="[Crvs,whtJBCDOCdown, 3left] [off] 

+Crvs) Cdown, 3leftJEAFLoff)” 

fsc23)="[rvs,wht] G [Cdown, 3l1left]HIJ 
Cdown,3lseft]IKLNLoff]” 
£f$C24)="[rvs,wht] N [Cdown, 3left]0PO 
Cdown,3leftJRASCoFfF)” 

f$S(25)="[rvs, wht]TUVCdown, 3leftJWLoff) 
Crvs]X[down, 3left] A LofFf)” 

rem 

rem *** cursorpositionen **# 

rem 
qsC1)="Lright]”:q$C2)=-"[HrightI”:45(C3) 
="C7right]”:q$C4H)="[1QdrightI” 

q$(5S)="L13right]”:q$C6)=-"Li6rightI” 

qsC7)="C[18right]”:qSCB)-"L22right)” 
qi15="[27right)” 
r$CB)=-"Chome]”:r$(7)="Chome, 3down]”: 
r5C6)-"Chome ,Edown]”:r$S(5)="Chome, 
Sdown]” 

r$(4)=”C[Chome, 12down]”:r$(C3)="[Chome, 
15downJ” 

rS(C2)="Chome, 18downJ”:rSC1)="Chome, 
2ldown]” 

ik$=-"[rvs,12spaces,off]” 

return 

rem 

rem *## druckerdatas *** 

rem 

data 128,148, 148,255,14B,148 
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goto 5® 
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**%*laderfuerschach-bank*#*# 
*#(c)1985** 

““#“ulrikefranz*®+* 
**kirchstr „1#®s 
“*s553loberdiebach*** 


VERBEEEEEEEEEEEEEEREER UNE 


if a<>® then 178 

poke 53288,3:poke 53281,8 

print *[clr,wht]” tab(8)”"CSdown,rvs, 
shift £,2spacss,off] [rvs,shift £, 

Zspaces,off] [rvs] [off ,2spaces,rvs] 
Coff] [rvs,shift £,2spaces,cbm *,off] 
Irvs,shift £,2spaces,off] [rvs] (off, 

2spaces,rvs) [Loff]” 

print tab(B)”[rvs) [off ,3spaces,rvs] 
Coff,3spaces,rvs] [off,2spaces,rvs] 
Coff] [Crvs] [Loff,2spaces,rvs] [off] 
[rvs] Coff,3spaces,rvs] [off,2spaces, 

rvs) Loff]J” 

print tab(8)”C[Ccbm *,rvs] [Cchm *,off] 
[rvs] Coff ,3spaces,rvs,4spaces, off] 
[rvs,4spaces,off] [Crvs] Coff,3spaces, 

rvs 4spaces, off] 

print tab(108)”"Crvs] [off] [Crvs] Loff, 

3spaces,rvs] [Loff,2spaces,rvs] [off] 
[rvs] Coff,2spaces,rvs] [off] [rvs] 
Coff ‚3spaces,rvs] [off ,‚2spaces,rvs] 
Loff]” 

print tab(B)”Crvs, 2spaces,off,shift £] 
Ccbm *,rvs,2spaces,off] [rvs] Loff, 

Espaces,rvs] [off] [rvs) [Coff,2spaces, 


Der Starterteil des Programmes „Schach-Bank" 


data FE,FF,FF,Fe,FE,FE,fO,00, 
data Of,f0,00,90£,F0,00,0F,F®, 
data 20,0F,F0,00,0F,£0,00,20F, 
data F®,00,0£,F0,08,0F,Fff,Ff, 
data FF,fFFf,ff,Ff,08,00,00,00, 
data 22 
data 
data 
data 


60008 For a-327568 to 32832 step 
8:3-9d:c=-B: for b=® to 7: 
gosub 59949 

60019 s=-sth+l-c:c=s>255: 3-255-3 


rvs] [off] [cbm *,rvs,2spaces, off] 
[rvs] [off ‚2spacses,rvs] [Loff]” 

print tab(11)”[2down,rvs,3spacess, 

cbm *,off] [rvs,shift £,2spaces,cbm *, 

off] [rvs,cbm *,off,2spaces,rvs]) [off] 
[rvs] C[Coff] [Crvs,shift £,off]” 

print tab(11)”[rvs] [off,2spaces,rvs) 
Loff) [rvs] [off,2spaces,rvs] [off] 
[rvs) Ccbm *,off] [Crvs] [off] [rvs) 
[shift £,off,shift £]” 

print tab(11)”[rvs,3spacses,cbm *,off] 
[rvs,4spacss,off] [rvs] [Loff,cbm *, 
rvs,cbm *] [Coff] [Crvs] Coff,shift £]” 
print tab(11)”[rvs) [off ,2spaces,rvs] 
Coff] [rvs] [off , ,2spaces,rvs) [off] 
Crvs] Coff] [Ccbm *,rvs] [off] [Crvs] 
Coff,cbm *,rvs,cbm *,off)]” 

print tab(11)”[rvs,3spaces,off, 

shift £] [rvs] [off ,‚2spacses,rvs) [off] 
[Crvs] [Coff,2spaces,cbm *] [rvs] Coff) 
Ecbm *J” 

print tab(12)"[4down, rvs,redJ1lL[off) 
Cwht]lo [rvs,redlJaloff] [Lwhtld [rvs, 
redliloff) CwhtIn [Crvs,red]Igloff,wht)] 
if a=® then a=1:load "zeichen”,8,1 

if a=-1 then a=2:load ”"rahmen”,B,1 
print ”"Chome,blkJrun” 

print ”"10”+chr$ (34)+"schach."+chr$ 
(34)+",8” 

for i=1 to S:read d:poks 630+i,d:next 


i 
poke 158,5 
data 19,17,13,19,13 


gosub 60098:next a:print " 
Cdown]”Ff”fehler":end 

read h$:gosub 6008508: h=1® 
16:h$=-mids Chs,2) 

l-asc (Ch5+"x”)-4B:if 1<9 
or 1>22 then 68888 

if 1<1@8 then return 
l=-1-7:if 159 then return 
fS=-"[rvsleingabefehler”:1- 
8: f-f+1 

print "zeile” peek (64)* 
255+peek (E3)FfS:return 


60020 


and 255:poke a+tb,h+l:next 
b:gosub 60048 
£$="prusfsumme ok”;:if s<c> 
h+l then FS="[rvs] 
prusfsummenfehler"”:f=fF+1 


saven des programas nach starten 
des loaders mit 


poke 43, ®:poke 44,128 
poke 45, 72:poks 45,128 
save "name”,8 


data 00,00,1B,3c,78,7e,7e,3c, 
data 18,3c0,66,78,66,66,656,00, 
data 7c,66,66,7c,66,66,7c,28, 
data 3c,66,60,60,60,66,3c,28, 
data 78,6c,66,66,566,6c,78,08, 
data 7e,690,60,78,60,60,78,00, 
data 7e,60,60,78,60,60,60,00, 
data 3c,66,60,68,66,66,3c,28, 
data 66,66,656,7e,66,66,56,20, 
data 3c,18,18,18,18,18,3c,00, 
data 18e,08c,2c,2c,2c,6c,38,00, 
data 566,6c0,78,70,78,6c,566,00, 
data 60,60,60,690,560,60,78,22, 
data 63,77,7f,6b,63,63,63,00, 
data 66,76,7e,7e,6e,566,55,00, 
data 3c,66,66,66,66,66,3c,08, 
data 7c,66,56,7c,50,60,60,00, 
data. 3C,66,66,66,66,3c,8e,0®, 
data 7c,66,66,7c,78,6c,55,00, 
data 3c,66,69,3c,26,66,3c,28, 
data 7e,18,18,18,18,18,18,00, 
data 66,566,66,66,565,556,3c,28, 
data 66,566,66,66,66,3c,18,20, 
data 63,63,63,6b,7F,77,63,08, 
data 66,66,3c,18,3c,66,566,20, 
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66,66,66,3c,18,18,18,98, 
72,25,2c,18,39,60,78,00, 
3c,30,32,30,30,390,3c,90, 
18,18,18,3c,3c,3c,7e8,7e, 
3c,00,080,8c,2c,20c,3c0,080, 
00,020,021,03,03,00,20,020, 
08,10,30,7F,7F,30,10,00, 
00,00,00,020,00,20,00,00, 
18,18,18,18,00,20,18,00, 
66,66,66,00,00,00,00,00, 
00,08,80,c0,c0,00,00,00, 
00,18,3c,78,78,72,3c,1B, 
7e,ff,18,18,3c,3c,78,7e, 
20,00,01,01,27,07,07,00, 
26,2c,18,00,00,28,00,00, 
0c,18,390,30,38,18,2c,00, 
38,18,20c,2c.,8c,18,30,00, 
00,66,3c,Ff,3c,66,20,00, 
02,18,18,78,18,18,22,080, 
00,20,00,028,80,18,18,30, 
00,20,20,78,00,00,00,00, 
20,00,28,208,00,18,18,00, 
00,23,06,2c,18,390,560,20, 
3c,66,5e,76,66,66,3c,0®, 
18,18,38,18,18,18,7e,00, 


8930 
8998 
B3ad 
89aB 
89b9 
89b8 
89c0 
8908 
8349 
8948 
8980 
8988 
[=1=137} 
B9FB 
Badd 
8ad8 
Bald 
Bal8 
Ba20 
Ba2B 
Ba30d 
Ba38 
BaHto 
Ba4t8 
Ba52 
Ba58 
Ba6ßd 
Ba6ß8 
8a78 
Ba78 
8a80 
BaBB 
Ba90 
BaS8 
Baad 
Baa8 
Bab® 
8ab8B 
Bacd 
Bacd 
Bad® 
BadB 
Based 
BaeB 
Baf® 
Bafs8 
8b28 
BbB8 
8b1® 
8b18 
Bb28 
Bb28 
Bb38 
8b38 
Bb40 
8b48 
8b5® 
8b58 
8b69 
8b568 
8b79 
8b78B 
8b80 
8b88 
Bb30 
Bb98 
Bbad 
BbaB 
8bb® 
8bbB 
Bbc® 
Bbc8 
Bbd® 
Bbd8 
Bbed 
EbeB 
Bbf® 
BbfB 
Bc0d 
8c08 
Bc1® 
8c1B 
8c28 
8c2B 
8038 


data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
date 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 


3c,66,06,0c,38,58,72,®82, 
3c,66,06,1c,86,656,32,®88, 
06,08,18,556,77,05,25,00, 
78,60,7c,06,85,55,32,80, 
3c,66,60,7c,66,56,32,@88, 
78,66,0c,18,18,18,18,®00, 
30,66,66,3c,66,66,32,8208, 
30,66,66,38,25,55,32,88, 
00,20,18,008,008,15,00,00, 
00,208,18,08,08,15,18,3%, 
08,18,30,58,32,15,0=,20, 
00,00,78,002,72,02,20,002, 
70,18,0c,85,8c,15,78,00, 
30,66,906,0-,12,88,15,®00, 
00,200,808,50,202,2.0,28,22, 
Er,f£,B1,Ff,81,FF,2E,00, 
00,08,205,07,087,07,87,07, 
00,88,24, 32; 32,32, FF,Fff, 
00,22,a02,=22,20,2.20,22,=0, 
00,208,022,023,28,0r,0°,20, 
09,22,2,c2,F@,r2,72,20, 
00,808,88,18,18,3-,7a,fa, 
00,81 ,81,81,85,83,87,27, 
Ed,fd,ba, Fa,Ff,Frf,Fe,df, 
02,598,382,2,42,52,22,a2, 
2f,07,27,02,22,02,22,02, 
gf,bE,32,38,ER,ff,ff,8, 
de,32,32,38,FB,78,f8,00, 
08,08,15,158,72,78,158,18, 
07,16,3°,394,383,39,17,0F, 
18,593,0c3,FF FE fe ,Ff,Ff, 
eB,FfB,fc,be,1c,be,28,f®, 
27,23,821,22,28,22,02,20, 
=2,-2,52,02,22,22,22,22, 
228,20,06,05,48,58,31,39, 
88,18,18,18,18,32,32,bd, 
08,00,598,58,82,85,5c,5c, 
1d,0f,0f,07,82,83,81,01, 
bB,f®,f®,282,c2,c2,88,88, 
88,008, 18 24,02, 2, 32,24, 
18,18,18,74, 243, 23,92,32; 
22,200,021,22,23,02,28,22, 
81,81,20,20,FF,08,02,20, 
02,00,80,40,c2,28,22,20, 
09,18,24,42 42,42,29,18, 
7a,ff,18,18,24,24,32,40, 
022,00,00,2082,02,202,08,20, 
00,008,21,21,25,@83,87,20, 
81,81,30,90,72,88,fF,00, 
00,20,80,80,58,28,.2,080, 
00,00,008,00,202,2008,20,ff, 
00,00,07,05,25,84,0=,07, 
00,00,3c,24,24,03,28,20, 
00,00,e0,28,22,20,22,=22, 
00,00,07,04,28,808,07,00, 
81,81,bd,20,30.,0@,FF,208, 


00,00,20,20,10,10,°0,20, 
81,99,99,bd,393,398,81,81, 
00,00,08,18,18,24,42,88, 
00.01,01,01,02,02,04,04, 
85,04,22,02,01,01,22,50, 
18,18,7e,18,7e,18,18,80, 
00,80,80,40,40,50,22,a0, 
08,08,07,00,00,00,00,20, 
90,30,20,20,20,80,FF,20, 
90,50,50,50,18,08,F8,20, 
07,18,20,22,27,22,18,28, 
18,39,42,3c,00,00,00,00, 
e0,18,04,44,e4,44, 08,10, 
04,02,01,00,00,00,00,22, 
00,00,30,81,bd,81,FF,20, 
00,00,00,00,00,FF,FF,FF, 
20,40,80,00,00,00,00,20, 
00,18,18,18,18,24,24,a5, 
15,02,08,04,02,02,01,01, 
a5,42,00,00,00,00,00,00, 
a8,50,10,20,40,40,80,80, 
81,bd,81,bd,81,81,fF,20, 
F£,fFf,e7,c3,81,81,81,c3, 
87,c3,39,81,39,393,33, FF, 
83,39,99,83,39,39,83, FF, 
c3,99,3F,3F,3F,39,c3,FF, 
87,93,39,39,39,33,87, FF, 
81,93F,3F,87,3F,9F,B1,FF, 
81,9F,3F,87,3F,3F,3F, FF, 
c3,99,3F,31,39,39,c3, FF, 
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ed 
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BcH® 
8c48 
8058 
8c58 
8c58 
8c68 
8c78 
8c78 
8c88 
8c88 
80890 
8c58 
Bcad 
8ca8 
Bcb® 
Bch8 
Bccd 
8cc8 
8cd® 
8cdB 
Bced 
BceB 
Bcf® 
BcfB 
8d22 
8d88 


8d10 


8d18 
8d28 
8d28 
8438 
8d38 
8d49 
8d48 
8d58 
8d58 
8469 
8d68 
8478 
8d78 
8489 
8d88 
BdS® 
8498 
8da® 
8daß 
8db® 
Bdb8 
8dc® 
BdcB 
Bdd® 
8dd8 
8ded 
Bde8 
8dfo 
Bdf8 
Bed8 
Bed8 
Bel® 
8el8 
Be208 
8e28 
8830 
8838 
Be4d 
Be48 
Be5d 
8858 
8869 
Ba68 
8e70 
8878 
Bs80 
8888 
8830 
8858 
Bead 
Beaß 
Bebd 
BebB 
Bec®d 
BSecB 
Bedd 
Bed8 
Besd 
Beed 


data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 


data’ 


data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 


99,39,99,81,939,39) 39, EE, 
c3,87,0e7,27,87,87,c3,ff, 
e1,£3,F3,£3,23,33)07,EE; 
993,93,87,86,87,33,39,EE, 
Sf,3Ff,Sf,3f,3E, SE ,Br,EE, 
Sc,88,80,94,9c,52,5c, Ef, 
99,89,81,81,931,99,39, FE£, 
63,39,99,99,39,39,c3,®®, 
83,99,53,83,3F, 92,98, ER 
03,39,33,933,939,03, fl, ER, 
83,99,39)83787,93,99, FF, 
03,99,9£,03)£8,99,03,E€F, 
81,07,87,87,07,07,07,Ff, 
93,993,39,99,393,33,03,£f, 
93,99,39,393,39,03,87, ff, 
9c,90,90,94,88,88,9c,Ff, 
93,993,03,87,03,39,39,£f, 
99,99,99,03,87,e7,e7,ff, 
81,29,£3,87,cf,3F,B1,Ff, 
e3,0Ff,0f,0f,0of,ok,09, ER, 
e7,87,87,c3,c3,03,81,81, 
BIBI, EI E33 ci 
BE;Fe,Fa,fo,Ffo,Ef,PR,ER, 
FF,ef,cf,80,80,cf,ef,ff, 
BESFESBESEPT LE NEE CR 
e7,0e7,07,87,Ff,ff,e7,Fff, 
SH33;33sEE,EeFs£ef,Fr,Ffe, 
EEFFRFEISES SIE EIS TE, EP, 
fF,e7,c3,81,87,8d,c3, e7, 
81,00,87,87,03,c3,81,81, 
FE,FF,fe,fe,fB,fB,fö,Fff, 
EI,E3,87, ER, ER ,EE ER, EE, 
F3;87;0F 0,0. 7 3, ff, 
cf,87,F3,E3,£3,87,cf,Fff, 
FF,S9,c3,800,c3,99,Ff,£ff, 
EF,e7,87,81,87,087,ff,Fff, 
EE,FE,FF,FF,FFf,87,07,cf, 
Er,EF,FE,B1,FF,ER,FE,FE, 
EF,FF,EF,FF,FE,u7,87,£r, 
F£E,fc,£f93,F3,87,cE,3E,EE, 
c3,99,31,89,99,39,c3,ff, 
e7,87,c7,27,87,8e7,81,FfF, 
c3,39,£9,£3,cf,3F,81,ff, 
£3,39,£3,83,£3;,39,.035EE 
£E9,£1,81,39,80,£9,F9,Ff, 
81;9Ff,B9,£95f9,39,C03,EE, 
63,99,3F,83,39,99,c3,ff, 
81,939,£3,87,e7,e7,e7,ff, 
63,39799,63,393;39,C9, FF, 
3:33 3376T,69,397C035, EE, 
ER FE ,n7 .EESERESOTsELHER, 
EE,FF,e7,Ff,Ff,87,8e7,cf, 
f1,87,cf,3f,cf,e7,fl,ff, 
BEZEFSBLSEESOLSEEAEENER, 
Bf,e7,F3,£9,f3,87,Bf,ff, 
CH, SI, EHEIIBL FEB ZH, 
FESEETTZES/ERIERIE SIE SER, 
00,00,78,00,78,00,00,FfFf, 
EF,Ff,fa,F8,£8,fB,f8,FB, 
£f,ff,db,c3,c3,c3,00,00, 
BELEESSESLETLENLENN TEN 
FF,FE,fc,fc,f®,F0,fO,Fff, 
FF,FF,3E,3E,0E,0f,D0E,Ef, 
Ff,F£f,£7,87,87,03,85,05, 
Fe,fc,fc,fc,fB,f8,Ff®,fd, 
02,02,41,01,00,20,00,20, 
PEEE,7ENTELDEVDETSELSE, 
ed,ed,8e0,f1,Ff,Fff,FE,Ef, 
69,40;c0,c0,00,00,00,FF, 
er,2f,2f,2£,07,07,07,FF, 
FF,F£f,e7,87,81,81,e7,®7, 


f8,88,c0,c2,c7,c2,ed,F®, 


e7,66,3c,00,00,00,00,00, 
1f,07,03,43,83,43,07,0fF, 
£B,fc,fa,ff,Fff,Ff,ff,ff, 
IP SE ZErER ERSTE ,ED.DE, 
EF,EF,FS,FS,bE,Sf,ce,c6, 
FF,e7,87,87,87,c3,c3,42, 
FE,FF,SE,SE,fd,f9,73,563, 
e2,F0,fFB,f8,fc,fo,fe,fe, 
47,0F,0f,1ıF,3£,3£,7£,7£, 
FF,FF,e7,db,bd,bd,bd,db, 
87,87,27,db,db,db,bd,bd, 
EF,FF,Fe,Fd,fo,Ff,ff,ff, 
78,7a,Ff,FE,O0,ff,fF,fE, 
ER,EE;FZELDE,BE SEE SFRS ER, 


Praxis Listing = 7 rs 322 EVEN ZEN TTRSTE 
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a Praxis Listing === = mesmmsmeme— 


en _ 
zz 
2378 
Ze 
228 
z=22 


ı) 


[207 m p 


m 


Mn 
bh 


Hr 


BERSAF SHE SESdE,dE, 1, 

„Er,FB,fb,f7,F7,FO,FE, 

„se,42,ff,c3,ff,00,Ff, 

Fe, ,1f,df,ef,ef,of,ff, 
72,56,66,42,66,66,768,7e, 
ge,FFf,£E7,87,87,db,bS,76, 
Fe,Fe,fe,fa,fd,Ffd,Ffb,fb, 
7a,fb,dd,fd,fe,fe,fe,Sf, 
Er,EF,FF,FF,EFF,fFF,00,00, 
E£,7f,7f,bf,bf,Sf,df,Sf, 
BIGEISEB,EF SEESFEZEE FE, 
B£E,6f,df,df,1F,7F,00,FEf, 
Gf,6f,af,af,a7,f7,07,F£, 
FB,e7,df,dd,dä,dd,af,f£7, 
e7,66,bd,c3,ff,ff,ff,Ef, 
1if,87,fb,bb,1b,bb,f7,ef, 
Eb,fd,fe,ff,fe,Fff,£f,EE, 
FF,ff,c3,78,42,78,00,Fff, 
FF,FF,FE,FF,FF,00,00,00, 
GESDESFESEDLLLL ELLE PE, 


600008 for a-34815 to 36856 step 
8:5=9:c=d:for b=-® to 7: 
gosub 69940 

60018 s=-s+h+l-c:c=s>255: s=-255-8 
and 255:poke a+b,h+l:next 
b:gosub 6989498 

60022 FS=-"pruefsumme ok”:if s<> 
h+1l then FS="[rvs] 
prusfsummenfehler”:f=f+1 


poke 43, 
poke 45, 


ff,e7,e7,e7,e7,db,db,S5a, 
ea,f5,f7,fb,fd,fd,Ffe,fe, 
sa,bda,ff;Ff,fP,£r;£e,fE, 
S7,af,ef,df,bf,bf,7Ff,7£, 
7e,42,78,42,78,78,00,Ff, 


zeichen“ beinhaltet Sprite-Daten der „Schach-Bank"-Spielfiguren 


69030 gosub 698888:next a:print ” 
E[down]”f"fehler”:end 

60048 read hs:gosub 68859: h=1* 
16:h$=mids (hs,2) 

600858 l-=-asc Ch$+"x”)-48: if 1<9 
or 1>22 then 690882 

60062 if 1<18 then return 

60078 1=1-7:if 1>9 then return 

60082 F$=-"[rvsleingabefehler”:]=- 
B:f=-f+1 

650238 print "zeile” peak (64)* 
256+peek (E3I)FfS: return 


saven des programms nach starten 
des loaders mit 


®:poke 44,136 
®:poke 46, 144 
save "name”,8 


Mit Volldampf 
in die Fußballsaison 


System: C64/Laufwerk/Drucker 
Typ: Anwendung 
Sprache: Basic 


Jetzt bekommen Sportzeitschriften 
Konkurrenz von „Kicktab". Ver- 
einsranglisten der Fußball-Bun- 
desliga erstellt und aktualisiert 
man selbst. Damit das Programm 
für. mehrere Saisons gültig ist, sind 
Mannschaftsnamen frei wählbar. 
Auf- und Absteiger sind ohne Pro- 
bleme zu berücksichtigen. 

Punkt 0 initialisiert die Tabelle. 
Der Liga-Name, Anzahl der Mann- 
schaften und deren Bezeichnun- 
gen sind einzugeben. Mittels 
Linkspfeiltaste kehrt man in das 
Hauptmenü zurück. 

Punkt 1 ist anzuwählen, wenn be- 
reits eingegebene Namen zu ver- 
ändern sind. 

2 steht für Eingabe der Spieler- 
gebnisse. 

3 zeigt den aktuellen Stand der 
Mannschaften aufgrund deren 
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„Kicktab“ ist ein Lek- 
kerbissen für alle C64- 
Besitzer und Fußball- 
fans. Mit diesem Pro- 


gramm verwaltet man 

Spielergebnisse und 

kann Bundesligatabel- 
len ausgeben. 


Spielergebnisse an. 

Mit Funktionstaste 7 erhält man 
eine Hardcopy der Ergebnisse 
auf Drucker. 

4 dient zum Abspeichern der ein- 
gegebenen Daten. 

5 lädt diese Datei wieder. 

6 zeigt das Directory der Diskette. 
7 löscht diese Datei. 

8 drückt man, um einen Befehl an 
die Floppy zu senden (beispielswei- 
se SCRATCH oder VALIDATE.). 

9 gibt den Diskstatus an. 


WRWCHDNEESNEITERWORLN COM 


Name der Liga: Beispiel Liga 
Mannschaft Punkte Tore 
Hamburg 2:0 4:0 
Stuttgart 2:0 8: 
Werder Bremen 2:0 g 
Schalke 04 2:0 3 
Bayer Leverkusen 2:0 2: 
1 
2 
2 


Köln 2:0 

Bochum 12] 

Gladbach Tal 

Wattenscheid 1:1 0:0 
Homburg 1:1 0:0 
Fortuna Köln et 0:0 
Blau-Weiß Berlin 1:1 0:0 
Bayern München 0:2 2:3 
Dortmund 0:2 2:8 
Bayer Uerdingen 0:2 1:2 
Hannover 96 0:2 0:1 
Stuttgarter Kickers 0:2 1:3 
Kaiserslautern 0:2 0:4 


Jederzeit aktuelle Ranglisten der Bun- 
desliga mit „Kicktab" 


(Jens Meyer) EEEEEEEEEEEEEE 


1008 
118 


128 
138 
135 
1408 


158 
168 
165 


178 


1898 
198 
2008 


205 
218 
213 
e15 
217 
220 
e25 
239 
235 
240 
250 
260 
265 
270 
280 


open 3,8,15,”m-w”+chr$ (7)+chrs (253 
chr$ (1)+chr$ (15):close 3 

dim tt$(29),p1(20),p2(20),p3(28), 

t1(29),t2(20),t3(020) ,m$(20):m=-1:2=1 

a$=-"[rvs]Fussball-Tab V1.2 (CC) 1987 u 
Jens Meyer” 

print "Cclr,grn,ctri n]”;chrsS (8);a38- 

poke 53281,8:poke 53280,8:poke 552,128 

print ”Chome, 3down, right, rvsI<@»Torf7 
Liga definieren 

print "Cdoun, right, rvs]<1>Coff) 
aendern 

print ”Cdown, right, rvsI<2>Coff) 
Ergebnisse eingeben 

print "Cdown,right,rvsI<3>Coff) 
Tabelle ausgeben 

print ”Cdown, right, rvs]<4>Loff) 
speichern 

print "Cdown, right, rvsI<S>toff) 
laden 

print "Cdown,right,rvsI<tE>toff? 
losschen 

print "Cdown, right, rvsI<7>tofe) 
Directory 

print "Cdown, right; rvsIt®»fore) 
Diskbefehl 

print ”[down, right, ruvsI«=>To2rr? 
Diskstatus 

print "”Cdoun,off spaces, zus) 
Bitte washlen Siel ®*+# [off Sszaces)* 


gosub 50908 

if z<4B or z>57 then 128 

if z=-4B then 748 

on z-4B goto 839, 20020, 49022, 5280,=@20, 
370,300,199,15® 

gosub 519828: print 

open 15,8,15 

print. "Cclr)"as"Coff ,,down,right ye373 
Diskstatus :[grn] ”; 

get #15,aaS$:print aa$;:if st(?5% then 
178 

close 15:gosub 58B88:goto 18 

gosub 51982 

print "[clrJ”"aS”"[off, down, right, yel) 
Befehl :[grn] ”;:q=d:sl-29:gosub 285: 
goto 235 

t-1 

print ”Cgrn,cbm B,left)”; :gosub SBee2 
if z=42 then 212 

if z=-13 then print ” ”:goto 258 

if z=20 then 278 

if z=35 then 12 

if q=i1 then if z<4B or z>57 then 218 
if z=34 then 218 

if z<32 then 210 

if z>127 and z<133 then 218 

if z>140 and z<160 then 212 

t=t+l:if t>sl then t=sl:goto 218 
print t$; :tt$(t)=t$:goto 210 
t=t-1:if t<1 then t=1:goto 218 

print ” C2left,cbm Q,left]”; :ttSct+1)- 
"",goto 218 


290 c$="":Ffor tt=1 to t:0o$=o$+tt$ltt):next 


235 


300 
318 
320 
330 


3408 


350 
3608 
370 


375 
388 
385 
392 


WWW HOMECOMPLTERWORLD.COM 


:return 

open 15,8,15,c$:print "Cdown]":goto 
165 

gosub 51020 

print "Colr)]"a$ 

open 1,8,0,"50":get #1,x9,x5 

get t$:get #1,x8,x8:if st-E4 or tS="«” 
then close 1:gosub 5090208:goto 1560 

get #1,x$,y$: print asc (x$+tchr$ (B))+ 
E56*asc (yS+tchrS (0)); 

get #1,x8:print x8;:if x3<>”" then 3598 

print :goto 338 

print "Cupl”;;£or t=1,.to 49;:print ” %; 
:next :print ”"Lup,right,yellWirklich 
loeschen 7 ”; 

gosub 52000 

if z=-74 then clr :run 

if z=-7B then 12 

goto 375 

print "Lupl”;;Ffor t=1 to 48:print ” ”; 
:next :print ”"Lup,right,yellName der 

Liga 


sl-16:q=-d:gosub 205: 15=--c$ 

gosub 51908 

open 2,8,2,15+”,s,r” 

input#2,m 

for t=-1 tom 

input#2,m$(t) 

input#2,pi1(t) 

input#2,p2Ct) 

input#2,p3Ct) 

input#2,t1Ct) 

input#2,t2(t) 

input#2,t3Ct) 

next :close 2:goto 160 

if 1l5-"" then 10 

print "Eup)”; :EFor.tei.to NQ,print ”. ”; 
next :print "Cup,right, ,yellBitte Disk 
einlegen!”; 

gosub 50080: if. z=-141 then 10 

open 2,8,2,1$+",s,w” 

print#2,m”,” 

for t=-1 tom 

print#2,m$(t)”," 

print#2,p1(t)",” 

print#2,p2Ct)"”,” 

print#2,p3Ct)”,"” 

print#2,t1(t)"”,” 

print#2,t2Ct)”,” 

print#2,t3Ct)”,” 

next :close 2:goto 168 

print "Cclr]”a$"Cdown,right,yellLiga 
definieren” 

print ”Cdown,right,grn]JName der Liga : 
";:q=-d:sl=-16:gosub 295 

15-c$ 

print :print "[grn,rightlEingabe 
korrekt 7?” 

gosub 50008: if z=74 then 768 

if z<>78 then 753 

goto 748 

print ”"C[clrJ”a$”Cdown,off,grn,right] 

Anzahl Mannschaften :[3spacss,2lsft]”; 
:sl=3:q=1:gosub 205 

m=-val (c$S):if m>28 or m£@2 then print ” 

E3up]”:goto 768 

print :print ”[grn,rightlEingabe 
korrekt ?” 

gosub 598008: if z-74 then 778 

if z<>78 then 763 

print "[4up]”:goto 768 

m-val Cc$):if m>28 or m<2 then print ” 

[C3up]”:goto 768 

print "[clrJ”a$S”[offJ”:for wei to m 

print :print ”"[yellMannschaft Nr.”;w”: 

”;:sl=-20:q=d:gosub 205:m$(w)=c$:next : 

goto 18 

print ”"[CclrJ”a$”Cdown,yel,off,right] 

Liga aendern[grn]” i 

print ”"[down, 2right]JM)annschaftsnamen 
aendern 

print "Cdown,2rightlJL)iganamen aendern 

print ”"Cdown,2right]A)nzahl 
Mannschaften aendern 

print "Cdown,2right]P)unkte der 
Mannschaft aendern 

print ”Cdown,2right]T)ore der 
Mannschaft aendern 

print "Cdoun,2right]+)Mannschaft +1 

print "Cdown,2right]-)Mannschaft -1 

print "Chome, 18down, right ,‚39spaces]” 

print "Chome,18down, right, yel] 

Mannschaft Nr,Cblu]”;e;m$(Ce) 

print ”Chome, 28down, right  39spaces]” 

print ”Chome, 28doun, right, ,yellLiganame 
: Cblu]”;1$ 

gosub 50008 

if z=-S5 then 18 

if z=43 then e=-se+tl:if e’m then e"i 

if z=-45 then e=e-1:if s<1 then e=m 

if z=-77 then 1290 

if z=76 then 1108 

if z=55 then 1708 

if z=-88 then 1308 

if z=B4 then 1508 

goto 301 

print ”[grn,clr]”a$”Coff,down,right, 

yellName der Liga : ”;:sl=16:q"d:gosub 


1338 
1498 
1598 


1510 
1520 


1538 
1540 
1558 
1568 


1578 
1598 
1600 
1788 


1719 
1720 
1738 
2008 


2018 
2028 
20398 
2035 
2040 


2050 
20855 
2068 


2070 
2073 
82075 
20808 
2085 
2099 


2100 
2110 
2120 
2138 
2208 
2205 
2210 


2215 
22208 


2230 
[1] 


Bundesligatabellen sind mit „Kicktab“ schnell erstellt, 


285:1$=c$:goto 539 

print "Cclr,grni"=s"Tdsun, right,off, 
yellMannschaft Nr.";2;":";:51=-28:g=-B: 
gosub 205:m$(e)=cS 

e=re+tl:if e’m then ==i 

goto 830 

print "[cir, grmi"as"toff, doun,right, 
VellPunkte aenrdernfdoun]” 

print ” "=Ste)";” 

print "Idown,right,yellPlus:[Sspaces, 
blu)";pite) 

print "Iright yellMinus: [4spaces, bluJ” 
;p2Ce) 

rint *[right yellDifferenz:[blu]"; 
p3fe) 

print "Tdown,blu]Plus:[Sspaces]"; :s1l- 
3:g=i:gosub 205:pl(e)=val (c$) 

print "[CblulMinus:[4spaces]";:s1-3:q= 
1:gosub 205:p2(e)-val (c5) 
p3le)"-plle)-p2le):if p3le)/2<>int 
C(p3(Ce)/2) then 1309 

print "CblulDifferenz:”;p3(e) 

gosub 50288:eg-1:goto 839 

print "[clr,grn]"a$”Coff,doun,right, 
vel)Tore aendernLdown]” 

print ” "m$le)”:” 

print "Cdown,right,yellPlus:[S5spaces, 
blu]”;tiCe) 

print ”"[right,yellNinus:[4spaces, blu]” 
;t2Ce) 

print "[right yellDifferenz:[blu)”; 
t3Ce) 

print ”[down,bluJPlus:[5spaces]”; :sl= 
3:q=1:gosub 295:t1(e)=val (c$) 

print ”"Cblu]JMinus:[4spaces]"”; :51=3:q= 
1:gosub 285:t2Ce)=val (c$) 
t3(le)=t1le)-t2Ce) 

print ”"CblulDifferenz: ”;t3(e) 

gosub 59808: eg-1:goto 838 

print "Colr,grn]"a$"Cdoun,right,off, 
yellAnzahl Mannschaften : ”;:sl=3:q=1: 
gosub 295 

m=-val (c$) 

if m<2 or m>28 then 1708 

goto 838 

print "Cclr,grn]”a$”Cyel,doun,right] 
Ergebnisse eingsbenldown,grn]” 

if m=1 then 19 

for t=1 to m step 2 
print "[rvs]” chrS (64+t)"LoffJ”msct) 
if m$(Ct+1)=""” then zz=t:goto 2969 
print ”"Cup,rvs]” tab(19) chr$ (6S5+tJ” 
Loff]"mSCt+1) 

next t 

2z=t 

print "[Cdown, blu, 3spaces]Bitte 
Mannschaft 1 und 2 eingeben[3spaces]" 
s:ıgl15="".;g2se”” 

gosub 50002 

if z=28 then gi1$="":g2s="";goto 21108 
if z=S5 then 10 x 

if z<64 or z>84 then 2078 

if z>64+zz then 2970 

if glS=-"" then gi1$S=-m$(z-64):g1-z-564: 


-goto 2110 


If g2$="" then g2$=-m$(z-564):g2=-z-54: 
goto 2209 

print "Chome, 23down, 39spaces]"” 

print ”"Chome, 23down)”g1$”"-"g28S 

goto 2079 

if gi1$=g2$ then 2900 

print "[clr,grn]”a$"Cdown, right] 
Ergebniss eintragen” 

print "[Cdown,right,off,yellBitte 
Anzahl der Tore eingeben” 

print "[Cdown, 2right,bluJ”gi1$” - "g2$ 
print "Cdoun, gren,Sright]”; :s1=3:q=1: 
gosub 2085:el"=val (c$) 

print ”[Lup]” tab(Clen (g1$)+8);:=1-3:q= 
1:gosub 2085:e2=val (c$) 

print :print "[down,right, bluJEingabe 
korrekt 7 ”; 
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22508 
22608 
2278 
22628 
23908 
2310 
2320 
2338 
2340 


23508 
2368 


2370 
2389 
2420 
3998 
3010 


3020 


3038 
3940 
3058 
3068 
3978 
3989 


3281 
3082 
3083 


3985 
3120 
3130 


3148 
3158 
3155 
3168 
3178 
3188 
3138 
4202 


4218 
49298 


42328 
4240 


4950 
4260 


4070 
4HDBO 


4290 
4os1 


4100 


4118 
4120 
4130 
4140 
41508 
4590 
4518 
522008 
50018 
510008 


51128 
51209 


51259 
51398 


gosub 50009 

if z=74 then 2398 

if z<>78 then 2258 

goto 2228 
t1lg1)=tilgl)+el:t2lg2)=-t2lg2)+el 
t2lgi1)=-t2lgl)+e2:tilg2)=-tilg2)+te2 
t3lg1)=-t1lg1)-t20g1) 

t3Cg2)=tilg2)-t2tg2) 

if el>e2 then pilgi)=pitlgi)+2:p2lg2)- 

p2lg2e)+2:goto 2378 

if el<e2 then p2(gi1)-p2lgl)+2:pilga)- 
pllg2)+2:goto 2378 

if el-e2 then p2(gi)=-p2(gi)+1:pilg1)- 
pllg1)+1:p2lg2)-p2tg2)+1:pilg2)=-pllge) 
+1 

p3Cg1)=pillgi)-p2tg1) 
P3Cg2)"=pllg2)-p2tg2) 

goto 2002 

print "[Cclr,blu)”as 

print "Chome, dowun,off,grnIName der 
Liga : ”;18S i 

print ”C[Chome , 3downJNannschaft 
[C12spaces]Punkte[l4spaces]Tore 

print ”"[4®chm t)” 

for t=1 to m:print ”Lup]” 

print m$(t) 

print ”Cup]” tab(19)p1Ct)"”:"p2ct) 
print ”Lup]” tab(29)t1Ct)”:"t2Ct) 
next :if m>18 then print "Chome,off] 
Name der Liga : ”;1s 

get t$:if t$="«-"” then 19 

if t$="[£7]” then 3138 

if tS="[£1]” then poks 198,8:wait 198, 
1 

if sf=-1 then sf-2:return 

goto 308298 

open 1,3:open 7,4,7:close 1:close 7: if 
st<® then 39908 

open 1,3:0pen 7,4,7 

if m>18 then print "[home]”;:goto 3169 
print "[home,down]”; 

for 11=1 to 24 

for 12=1 to 48 

get #1,bS:print#7,bS;:next 12 

next l1:close 1:close 7:goto 39088 
print "tclr,grn]”as"Cdown,2right,off, 

yellEinen Moment Bitte ... 

print "Cdown,3rightlIch sortiers ... 

print "[down,Sright,bluJAbbruch : ’e’ 
- Taste 

v-B:for t=-1 to m-1 

if psek (197)=-57 then 39008 

if p3(t)>p3Ct+1) then 4500 

if p3Ct)=-p3Ct+1) and pllt)>pilt+1) 
then 4508 

if p3Ct)=p3Ct+1) and pllt)=pllt+1) and 
t3(t£)>t3Ct+1) then 4598 

if p3Ct)=-p3Ct+1) and pilt)=pilt+1) and 
t3Ct)=t3tt+1) and tiCt)>tilt+1) then 
45008 
hs-mSCt):m$Ct)=mSCt+1):mSCt+1)=hS: v1 
if p3Ct)=p3Ct+1) and pillt)=pllt+1) and 
t3Ct)=t3Ct+1) and ti1lt)=tilt+1) then 
4508 
h=pilt):pllt)=pilt+1):pilt+1)=h:ve1 
h=p2Ct):p2Clt)=p2Ct+1):p2Clt+1)=h 
h=p3Ct):p3Ct)=p3Ct+1):p3lt+1)=h 
h=t1lt):t1lt)=ti1lt+1):t1lt+1)-h 
h=t2lt):t2ct)=t2lt+1):t2Ct+1)=h 
het3lt):t3ct)=t3Ct+1):t3Ct+1)-n 

next t:if v=® then 3008 

sf-1:gosub 3009:goto 4939 

get t$:if t$="” then 50000 

z=-asc (t$):return 

open 15,8,15:close 15:if st>=8 then 
return 

print ”[clr)”’a$”"C2down,off,rightlBitte 
Floppy einschalten!” 

gosub 50002 

if z=-S5 then 18 

goto 51202 


Keine Angst 


Praxis Listing 2. ambmbmreerer a 


vor relativen Dateien 


Eine wenig angewandte Möglich- 
keit der Datenspeicherung auf 
Diskette ist die relative Datei, da 
im Standard Basic des C64 keine 
Befehle zur direkten Steuerung 
von relativen Dateien enthalten 
sind. Die Steuerung muß umständ- 
lich über PRINT-Befehle durchge- 
führt werden. Doch bietet diese 
Speicherungsmethode wesentl- 
che Vorteile gegenüber der s=- 
quentiellen Datensicherung: 

— direkter und schneller Zugn# 
aufjeden Datensatz 

— direktes Zurückschreiben &- 
nes geänderten Datensatzes 

— die Erweiterung einer vorhan- 
denen Datei ist problemlos oime 
Umladen möglich. 

Das Arbeiten mit dieser Dateform 
erfolgt in zwei Schritten: 

1. Einrichten der Datei: 

— Öffnen der Datei zum Laden 
und Festlegen der Satzlänge 

— Dateigröße. durch Kennzeich- 
nung des letzten Satzes festlegen 
— Schließen der Datei 

2. Bearbeiten: 

— Öffnen der Datei 

— Zeiger auf einen bestimmten 
Satz positionieren 

— Satz lesen oder schreiben 

— Schließen der Datei 

‚Die nachfolgend aufgeführten Ba- 
sic-Routinen ermöglichen den pro- 
blemlosen Einsatz ohne detaillier- 
te Kenntnis der Zugriffsmechanis- 
men. Das Programm RELDAT | 
(Listing 1) ist ein universell einsetz- 
bares Dienstprogramm mit folgen- 
den Menüpunkten!: 

l. Datei laden 

Hier wird der Name der Datei, die 
Satzlänge und die Anzahl der Sät- 
ze eingegeben. 

Da der INPUT-Befehl lediglich 88 
Zeichen erlaubt, ist von Zeile 
50220-50400 ein kleines Maschi- 
nenprogramm gespeichert das 
den INPUT-Befehl ersetzt (entnom- 
men aus dem Floppy-Buch von 
Data Becker) und Satzlängen bis 
zu 254 Zeichen zuläßt. 

2. Datei erweitern 

Name der Datei eingeben und die 


Über relative Dateien 
gibt es wenig Literatur. 


Die folgenden Pro- 
gramme erleichtern 
die Anwendung. 


neue Anzahl der Sätze angeben. 

3 Werte anzeigen. 

Bei diesem Menüpunkt werden 
Details ausgegeben, wie die Än- 
zahl der Datenblöcke und die 
Lage der Side-Sektor-Blöcke und 
so weiter. 

2 Dateilöschen 

„Reldat 2" besteht aus Unterpro- 
grammen, mit denen die Bearbei- 
tung von relativen Dateien zum 
Kinderspiel wird. Die Routinen 
können leicht in jedes Basicpro- 
gramm eingebaut werden. Die 
einzelnen Unterprogramme wer- 
den mit GOSUB aufgerufen. Fol- 
gende Funktionen stehen zur Ver- 


Hmm 
u . 


50000 Datei eröffnen, Tabellen fül- 
en 
51000 Satz lesen 
52000 Satz schreiben 
53000 Datei schließen 
Reservierte Variablen: 
3) Benutzer-Variablen 
DAS Dateiname 
SN% Satznummer 
SL% Satzlänge 
FE% Fehlernummer 
TE$() Tabelle der Feldinhalte 
b) Interne Variablen 
TC$ Tabelle der Feld-Charak- 
teristika 
TL% Tabelle der Feld-Längen 
SB$ Satz Ein-/Ausgabebereich 
LE$ Leerzeichen 
NUS Nullen 
XXS$S Zwischenbereich 
Nach dem Einrichten der Datei 
mit RELDAT 1 kann der Benutzer 
die Sätze in Felder unterteilen. Bei 
einer Adreßdatei (Listing 3) sieht 
das so aus: Name 15 Stellen, Ort 20 
Stellen, Straße 20 Stellen, Telefon- 
nummer 6 Stellen. Diese Feldauf- 
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teilung gilt nun für jeden Satz der 
Datei. Die Felddefinition wird in 
DATA-Anweisungen angegeben 
und von den Unterprogrammen in 
internen Tabellen festgehalten. 
Zur Verwaltung der Adreßdatei 
wird folgende DATA-Zeile defi- 
niert: 
DATA3,15,20,20,6,0 
Der erste Platz, hier 3, ist für die 
Satznummer reserviert. Die Null 
am Schluß der DATA-Zeile mar- 
kiert das Ende der Feldaufteilun- 
gen. Eine weitere Datazeile kenn- 
zeichnet die einzelnen Felder als 
numerische (N) Felder (reine Zif- 
fern, mit denen später Rechen- 
operationen durchgeführt werden 
können), oder als alphanumeri- 
sche (A) Felder (Buchstaben und 
Ziffern). Im Falle obiger Adreßda- 
tei sieht das so aus: 
DATAN.AA ANNE 
Ein E muß die DATA-Anweisung 
abschließen. 
Werte, die kleiner als die definier- 
te Feldlänge sind, werden je nach 
Feldtyp automatisch angepaßt. 
Bei Typ N (numerisch) wird die 
Zahl mit Nullen (linksbündig) auf- 
gefüllt, bei Typ A (Buchstaben) 
wird rechtsbündig mit Leerzei- 
chen vervollständigt. Der Varia- 
blen DA$ wird der Name der be- 
reits geladenen Datei zugeordnet, 
SL% bekommt die Satzlänge zuge- 
wiesen. Anschließend erfolgt ein 
Sprung in die Unterroutine ab Zei- 
le 50000. 
Bearbeiten der Datei: 
a) Lesen 
Zum Lesen eines Satzes wird die 
entsprechende Satznummer der 
Variablen SN% zugewiesen und 
die Unterroutine ab Zeile 51000 
aufgerufen. Die Statusvariable 
FE% protokolliert das Ergebnis 
der Leseoperation: 

0 = kein Fehler aufgetreten 

l = Satznummer außerhalb 
der Datei 

2 = Satzistleer. 
Bei erfolgreichem Lesen stehen 
auf den Tabellenplätzen |-n der 


Tabelle TE$(1) die einzelnen Fel-»> 
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der des Satzes. Im Beispiel der 
Adressendatei TE$(1) ist die ak 
elle Satznummer, EX2) der 
Name, TE$(3) der Ort. TEsQ = 


die Straße und so weiter 
b) Veränderungen innerhalb der 
Datei 


Sollen Veränderungen oder Neu- 
eintragungen stattfinden, so wird 
dem jeweiligen Feld TE$(I) ein 
neuer Feldinhalt zugeordnet. Zu 
beachten ist lediglich, daß Ziffern 
zuvor in einen String umgewan- 
delt werden müssen (STR$-Funk- 
tion). Zum Zurückschreiben des 


Satzes wird die Unterroutine ab 
52000 aufgerufen. Die Statusvaria- 
bie TE% protokolliert den Zurück- 


schreibevorgang: 

0 = kein Fehler aufgetreten 

l = Satznummer außerhalb 
der Datei 


c) Schließen der Datei 

Bei Programmende muß die Un- 
terroutine ab 53000 zum Schließen 
der Datei aufgerufen werden. 

Das Beispielprogramm (Listing 3): 
140,180 — Feldcharakteristika 
210,220 — Dateiname und Satzlän- 
ge 


360,370 — Abfrage der Fehlerva- 
riable 

650 — Eingabe der Satznummer 
680,690 — Abfrage der Fehlerva- 
riable 

2000-2130 — Eingabe eines neuen 
Datensatzes 

6000-6096 — Ausgabe eines Da- 
tensatzes 


Die Unterroutinen zu allen Gosub- 
Anweisungen in Listing 3, deren 
Zeilennummer größer als 6000 ist, 
stehen in Listing 2. 


(D. Friedel) EMEEEEEEEEEREEREEEEEEEEN 


loeschen” 

print 

print tab(4)”9 -[2spaces]lende 
[1dspaces]” 


DEZ ZZ DISS SE SE ST ee 


“= reldati * 


get a$:if a$=""” then 188 
if a$=-"1"” then gosub 498 
if a$-"2” then gosub 6988 
if a$=-"3" then gosub 798 
if a$=-"y4” then gosub 800 
if a$="9" then goto 258 
goto 128 


dienstprogramm fuer 
relative dateien 


fuer c/64 mit 1541 


dieter friedl : rem befshlskanal schliessen 
ermbrachtstr. 25 B 
45 dortmund 78 close 15 

end 

rem BEE 
rem * * 
rem * datei laden “ 


rem * “ 
rem “rEruuuzuns 


Januar 1987 


KURT u 


“ 
* 
* 
” 
* 
* 
* 
* 
* 
* 
* 
Ei 
” 
“* 
* 
* 
* 
* 
* 
* 


EEE En 
routinen : 


print ”[Cclr,3down]”; 

print tab(4)"[rvs]datei laden” 
print :print 

input ”"[3spacss]Jdateiname ”;da$ 
print 

input ”"[3spacses]satzlaenge”;sl 
print 


1802 = datei laden 

2208 = datei erweitern 
8222 = disketten-fehler 
18000 = dateiwerte anzeigen 
11000 - datei losschen 


:rem satzlaenge pruefen 


if sl<1 or s1>254 then print ” 
C2spaces]satzlaenge Falsch”:goto 458 


f rem I EZ ZU ZU ZZ zz ZZ Tee 
rem * “ 
rem * auswahlmenue “ 


rem * “ 
rem Yen 


input "C3spacesJanzahl der saetze”; 
an 
print 


input ”’C3spaces]Jalles richtig. J/n ” 
‚as 

if 8$<>"j” then 429 

gosub 1828:rem datei laden 

return 


ırem befehlskanal eroeffnen 
open 15,8,15 


print "Cclr,3down]”; 
print tab(8B)”[rvs)relative dateien” 
print :print 
print rem * “ 
print tab(4)”1 -[2spaces]datei laden rem * datei erweitern ® 
C3spaces]” rem * hi 
print rem Meere 
print tab(4)”2 -[2spacesIdatei 
erweitern” 

D print 
print tab(4)”3 =-[2spaces]Jwerte 
anzeigen” 
print 
print tab(4)”4 =[2spacesIdatei 


rem Hmm 


print "[clr,3down)”; 

print tab(4)"[rvsldatei erweitern” 
print :print 

input "[3spacss]ldateiname ”;da$ 
print 

input ”"[C3spaces]Jneus satzanzahl”;an 
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662 
678 


675 
689 
682 
699 
708 
702 
704 
706 
708 
703 
728 
730 


735 
748 
758 
768 
770 
822 
822 


804 
806 
808 


8083 
820 
839 
835 
849 
B4S5 
850 


860 
8708 
8808 
838 
895 


10008 
1882 
1004 
19006 
1908 
1012 
1012 
1014 
1016 


print 

input ”[C3spacsslalles richtig. J/n “ 
‚as 

if a$<>”j” then 628 

gosub 20888:rem datei erweitern 
return 


LTE aaa 
rem * =” 
rem * dateiwerte anzeigen . 


rem * ” 
rem ZZ ZZ ZZ ZZ ZZ U ZU ZZ SE SS SS EEE zz 


print "Cclr,3down]”; 

print tab(4)”Crvsldateiwerte 
anzeigen” 

print :print 

input "[C3spacesldateinanme ";des 
gosub 10088:rem werte anzeigen 
return 


zen je Eee EN nn En SE EZ 
rem * = 


rem * datei losschen ® 


rem * 3 
rem EEE ZU U ZU ZZ SE ES SS SE EEE EEE EZ EZ z 


"Colr ‚3dowun)”; 
tab(4)"[rvsidatei 
:print 
"C3spaces)ldateineme ";daS 


print 
loeschen ” 


’C3spaces)alles richtig. J/n ” 


if a$S=-"" then B6® 

if a$<>”j” then 828 

gosub 11088:rem loeschen 

return 

rem „m „m... .-.©€.;_n;°nsneeeeeeeeeeeneees 
rem * — 
rem * relative datei laden „4 


rem * “ 
ram #r#unnsnnsnnnnnnnnnennnnnnnne 


da$5 - dateiname 
= satzlaenge 
- satzanzahl 


:rem 
:rem sl 
rem an 


1018 : 


1060 
1064 
1066 
1068 
1070 
1972 
10898 


1084 : 


1292 
1234 
1096 
11008 
1104 
1105 
11089 
1118 


1112 
1114 
1116 
1117 
1118 
1119 
1120 
1122 
1124 
1126 
1128 
1130 
1134 


1148 


:rem 
:cem 


relative datei 
zum laden eroeffnen 


open 2,8,2,da$+”,1,”+chrS (sl) 
gosub 8922: rem fehlerpruefung 


satznr (an) fuer 
positionierung umrechnen 


: rem 
: rem 


hi=int (an/256):1lo=an-hi*256 


:rem positionieren 

print#15,”"p” chr$ (2) chr$ (lo) chrS 
Chi) chr$ (1) 
gosub B222:rem fehlerpruefung 
:rem 
:rem 
:rem 


letzten satz freigeben 
alle vorherigen saetze 
werden ebenfalls frei 


print#2,chr$ (255) 
gosub 88028:rem fehlerpruefung 


:rem erolgreich geladen 
print 

print "[3spaces]datei: 
geladen” 

for i=1 to 2808:next i 


"das” 


3275 


2341 
648 
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1150 : 


1168 
1178 
1188 
1190 


1792: 


:rem datei abschliessen 


close 2 
return 


1135 : 
1196 : 


20098 
2902 
2904 
2006 


2008 


2810 : 


2012 
2016 
2018 
2029 
2039 
2040 
20598 
20698 
20898 
2038 
2094 
2036 
21808 
2104 
2105 
2103 
2118 


e11l2 
eıl4 
2116 
2119 
2120 
e122 
2124 
2126 
2128 
2130 
2134 


2140 
2150 
2168 
2178 
2188 
2190 


2194 : 


rem EEE EN 
rem * “ 
rem * rel-datei erweitern ” 
rem * “ 
rem nee 


da$ = dateiname 
= satzanzahl 


:rem 
:rem an 


relative datei 
zum srweitern erosffnen 


:rem 
:rem 


open 2,8,2,das 


gosub 8008:rem fehlerpruefung 


satzanz (an) fuer 
positionisrung umrschnen 


:rem 
:rem 


hi=int Can/256): lo-an-hi*255 


:rem positionieren 

print#15,"”p” chr$ (2) chr$ (lo) chr$ 
Chi) chr$ (1) 
gosub 80080:rem fehlerprusfung 


:rem letzten satz freigeben 
print#2,chr$ (255) 
gosub 8008:rem fehlerpruefung 


:rem erolgreich erweitert 
print 

print "[3spaces]datei: 
erweitert” 

For i=1 to 2000:next i 


"das" 


rem datei abschliessen 
close 2 
return 


e1SS : 
216 : 


8999 
8002 
80094 
8006 
8008 
8018 
8920 
8038 
80940 
BSD 
1=1,]=1%] 
8970 


8072 
8074 
8076 


8978 
8989 


BOBH : 


tem HIRTEN 


rem * * 
rem * disketten-fehler ” 


rem * “ 
Em 


input#15,ern,er$,tr,bl 

if ern<28 then return 

if ern=58 then return 

print ”"Cclr)]” 

print ” diskettenfehler”:print 

print "[2spaces]fehler-nr[3spaces]: 
’ern 

print ”[2spacss]fehler-text 

Cshift-space]: "er$S 

print ”[2spacss)fehler-spur 

Cshift-space]: "tr 

print "[2spaces]fehler-block: 

close 15 

end 


"bl 


BOBE : 


8088 : 


1900008 
190982 
1909094 
10026 
19208 


10010 : 


rem Ye 
rem * “ 
rem * datei-werte zeigen ba 


rem * “ 
rem BEE 
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190012 


:rem da5- dateiname 


10028 : 


10022 
10830 
10032 
10034 
10036 
10038 
10040 
10042 
10044 
10048 
10050 


192072 
19074 
19076 
10078 
10073 
100898 
10082 
10083 
10084 
10085 


10086 
18288 
190052 
18881 
10032 
10084 
1002356 
198238 
18108 
121922 
10104 
12106 
10108 
12118 
12112 
120114 
12116 
12118 
10113 
10120 
10121 
10122 
10123 
10124 


10125 


10126 
10126 


Relati 


open 3,8,3, "#*:t=-18:5=1 

’ 

print#15, "u1";3;8;t;s:rem header 
print#15, "b-p";3;08 

get #3 ,29,b$:rem naechster entry 
if aS="“" then aS=chr$ (08) 

if bS="" then bS=chr$ (0) 

t=asc (a$):s=-asc (b$) 

bo=-2:rem blockpointer -> files 1 
print#15, "b-p”;3;bp+i*32:rem typ 
Foe i-@ to 7 

grint#15, ”"b-p”;3;bp+i*32:rem typ 
get #3,a$:if a$-"" then a$=chr$ (9) 
if asc (a$)-® then 19078 

ty=-asc (a$) and 15 

get #3,8$,b$ 

if 85="" then a$=chrS (08) 

if b$=-"" then b$=chr$ (0) 

tl=-asc (a$):si=asc (b$):nS="" 

For y"=1l to 16 

get #3,a$:if a$=chr$ (160) then 
18076 

nS"=nS+ta$ 

next y 

if n$=da$ then 10039:rem gefunden 
next i 

if t<>8 then 10832:rem naechster 


: rem nicht gefunden 


print 

print "[3spaces]datei ”da$” nicht 
gefunden” 

goto 19178 


: rem datei gefunden 


print#15, ”b-p”;3;bp+i*32+13 

get #3,3$,b$ 

if a$="" then a$S=chr$ (0) 

if b&$="" then b$=chr$ (2) 

t2=asc (a$):s2=asc (b$) 

get #3,3$:rem satzlaenge 

if a$=-""” then a$=chr$ (8) 

sl-asc (a$) 

rem anzahl bloecke 

print#15, ”b-p”;3;bp+i*32+2B 

get #3,a$:if a$="” then a$=chr$ (0) 
get #3,b$:if b$=""” then b$=chr$ (0) 
bl=asc (a$)+256*asc (b$) 

if ty<>4 then 18126:rem nur rel.dat 


:rem errrechnen sidssector- 
:rem bloscke und anzahl sastze 
:rem und anzahl saetze 


ss=bl/121:if ss<>int (ss) then ss- 
int (ss+1) 

sa-int (C((Cbl-ss)*254)/s1) 

gosub 10288:rem typ ermitteln 
gosub 18288:rem typ ermitteln 


ateien sind kein Problem mit ‚r: 1* 


rem Pers 
rem * “ reldat2 * “ 
rem * unterprogramme fuer 

rem * relative dateien “ 
rem aa a als a ale al ale a0 aA a a 
rem * ® 
rem * tabellen fuellen nd 
rem * datei erosffnen “ 
rem #0 0 aan Alb ale An au au aa a a a aaa 
: rem feldlaengen-tabelle 

: rem fuellen 

if s1l%<1 or sl>254 then print 
"satzlaengs falsch !”:stop 

dim te$(254) 
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10138 
18132 


10133 


10134 
10136 


10138 
10139 
10148 
190142 
10144 


10146 
10148 
10150 
10152 


12154 


10156 
10158 


18153 
18168 


190162 
12164 
190178 
19188 


10139 : 


190208 
190208 
128218 
1902208 
102308 
190240 
10258 


10260 : 


print "Cclr}":print 
” £rvs]dateinameloff ‚6spaces): 


”" £rvs]Jblosckeloff ‚Bspaces]: " 


print ” [rvsjtyploff ,12spaces]: "tyS 
print ” IrvsJanfangsadresseloff) 
[rvsIspurfoff) "; 


print t1” Crvs]saktorloff) "si 

print 

if ty<>4 then 19160 

print * [rvslerster side-L[Loff]}"” 
print * CrvsIsector-blockloff, 
3spaces)]:"; 

print * ErvsIspurloff) ”;t2; 

print ” [rvsisektor[loff) "s2 

print " Ervsisidse-sector-" 

print * TrvsIbloscksloff ‚Bspaces]: ” 
ss 

print ” Crvsidaten-bloscksloff, 

spaces): "bl 

print ” [rvsIsaetzeloff ‚Sspaces]: "sa 
print ” IrvsIsatzlaengsloff ‚Sspaces] 
:”sl 

print 

print "[2shift-spacelweiter mit 
return” 

get a$S: if aS="" then 18162 

goto 18188 

for i=1 to 2B@@:next i 

close 3:retucn 


:rem typ eraitteln 


if ty=1 then tyS="seqg” 
if ty=-2 then tyS="prg” 
if ty=3 then tyS=-"usr” 
if ty=4 then tyS="rel” 
return 


190270 : 


11000 
11822 
118984 
11986 
119098 


11010 : 


119208 


11038 : 


119040 
119058 
11068 
110808 
119058 
111008 


1111® 
11128 


11138 
11140 


11150 : 


59059 
59068 
SaaE2 
Ss8064 
59079 
500808 
50238 
59932 


59934 
50055 


59118 
52120 


rem *%* nn... 


rem ® “ 
rem datei loseschen a 


rem *® “ 
rem Pennnnnnnnn 


:rem ds = dateiname 


print 

kS=-"58: "+daS: res befehl bilden 
print#15,kS:rems befehl senden 
gosub 8888:rem pruefen 

if tr>@ then 11128 

print "[3spacesIdatei: "da$” nicht 
gefunden” 

goto 11138 

print "[3spacesIdatei: "”das” 
geloescht” 

for i=-1 to 2888:next i 

return 


dim t1%(256):i1=1 

read t1%(i) 

if tl%(i)=® then 50092 
t1%(255)*-t1%(255)+t1%li) 

:rem grossste Feldl merken 

if t1%Ci)>t1%C9) then tl%lo)=t1%Ci) 
i=-i+l:goto 50069 

if i-1>254 then print "zuviele 
felder definiert !”:stop 

t1%(256)=-i-1 

if t1%(255)>254 then print ”"summs 
der feldlasngen zu gross !”":stop 
:rem Feld-charakteristik 

:rem -tabelle fuellen 


Se14® dim tc$C254):i=-1 

50158 read tc$(i) 

50152 if tc$(i)="e” then 59162 

50154 if tc$Ci)<>”a” and tc$li)<>”n" then 
print ”"feld-charakter falsch! "”:stop 

S016B i-i+l:goto 50159 

SBl62 if i-1>254 then print "zuviele 
Felder definiert !”:stop 

SBl64 if i-1<>t1l%C256) then print 
”feldelemente ungleich !”:stop 

50178 : 

58188 For i=1 to t1%(0) 

50130 le$-l8$+” ”:nuS=nus+”9” 

50228 next i 

so2128 : 

5o0211 :rem erweiterter input - befehl 

Sp212 :rem aus dem Floppy - buch von 

52213 :rem data becker 

so2l4 : 

SB222 :rem input* befehl speichern 

50230 : 

592408 For i=B28 to S22 

50258 read x:poke i,x:5=s+tx:next 

50260 data 169,71,160,3,141,8,3,140,9 

50278 data 3,96,32,115,0,201,133, 240 

50280 data 6,32,121,0,76,231,167,32 

50298 data 115,0,201,172,2490,6,32,191 

50308 data 171,76,174,167,32,155,183 

50318 data 32,30,225,32,253,174,32,158 

50320 data 183,138,72,32,253,174,32 

50338 data 139,176,133,73,132,74,32 

50342 data 163,182,104,32,117,180,168 

50350 data 2,185,57,0,145,73,136,16 

50360 data 248,2808,32,18,225,145,58 

503798 data 208,136,37,208, 2456, 32,284 

50380 data 255,76,174,167 

50399 if s<>118S6 then print "fehler”:stos 


50400 sys 828 
So41® : 

So420 :rem 
50430 : 


befehlskanal erceffnen 


50448 open 15,8,15 
Sp450 : 
504698 :rem relative datei eroeffnen 
504708 : 
50480 open 2,8,2,das 
504398 gosub 55888: rem 
50502 return 
SeS1® : 
SspoS20 : 
50530 : 
51008 rem DEREN TUE 
51002 rem * “ 
51004 rem * satz lesen “ 
51006 rem * “ 
51008 rem EEE 
51008 : 
51012 :rem 
51220 : 
51030 gosub 54908:rem positionieren 
51048 gosub 55928: rem fehlerpruefung 
51858 if ern=S58 then fe%"1:return 
51062 :rem satznr ausserh. datei 
51278 input *2,s1l%,sb$:rem lesen 
51888 gosub 55888:rem Fehlerpruesfung 
512098 if left$ (sb$,1)=chr$ (255) then 
fe%=-2:return :rem satz ist leer 
51108 : 
S111® : 
51128 :rem 
51138 :rem 
51142 :rem 
51158 : 
51168 p=1:i=1 
51178 if tl%(i)=® then 512208 
51188 te$Ci)=mid$ (sbS,p,t1%(i)) 
51198 p=ptt1l%(i) 
51208 i-i+1 
51218 goto 51178 
51228 fe%"-®:rem 
51238 return 


Fehlerpruefung 


sn“ = satznr 


eingelesenen satz 
aus sb$ in tabelle te$ 
uebertragen 


alles ok 
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s2ıe2 
s2ıo4 
s2185 
seı1® 


2112 
se128 


BE Praxis Listing ee = u SB SS 


rem EEE nenn 
rem * =” 
rem * satz schreiben ® 
rem * ” 
rem BEREIT EEE 


:rem eingegebene felder 
: rem bis zur definierten 
:rem laenge auffuellen 


i=1 

if tl%Ci)=® then 52169 

if left$ (te$(i),1)<>”" ” then 52062 
: rem 1,leerzeichen entfern,. 
xxS-mid$ (ts$Ci),2,len (te$(i))) 
te$li)=xx$ 

if tc$(i)="a" then 52102 

:rem numerisches feld 

if len (te$(Ci))<=tl1%Ci) then 52089 
te$Ci)=right$ (tesli),t1%(li)) 

goto 52120 

xxS=-left$ (nuS,tl%Ci)-len (tesCi)))+ 
tes(i) 

te$sli)=xx$ 

goto 521298 

:rem alpha-fFeld 

if len (tesCi))<=t1%C1) then 52110 
teSsli)=-lafts (tssli),t1%Ci)) 

goto 52128 

xx5=-teS(i)*+lefts (les, t1%Ci)-len 
(tsS(i))) 

teSti)=-xx5 

isi+1:g0to 52940 


52138 : 


142 
521508 
s2168 
52178 
521898 
52198 
52132 
52194 
52136 
52138 
521393 
522008 
s2201 
s2202 
52294 
s2206 
52208 
52210 
s2220 
52230 
s2e240 
522508 
52268 
52278 


52288 
52230 
52398 
523128 


52320 : 


:rem satz zusammenstellen 


sbS=-"";:ie1 

if t1%Ci)=® then 52192 
sb$S=sbS+te$(Ci) 

i=i+1:goto 52178 

if len (sb$)=sl% then 52202 
for i=1 to sl%-len (sbS)-1 
sb$=-sbS+left$ (le$,1) 

next i 


rem te$ losschen 


ie1 

if tl%Ci)=® then 52240 
tesli)-"" 

i=i+l:goto 52204 


: rem satz schreiben 


gosub 54000:rem positionieren 
gosub 55080:rem fehlerprusfung 

if ern-=S5® then fe%=1:rsturn 

:rem satznr ausserhalb datsigrenz 


e 
print#2,sb$;:rem 
gosub 559288:rem 
fe%=-d:rem 
return 


schreiben 
fehlerpruefung 
alles ok 


52330 : 
s2340 : 


532228 
532292 
53994 
530056 
53888 


530085 : 


53810 
538208 
53839 
53049 
53958 
53258 


_— ae 
rem * - 
rem * datei schliessen * 


rem * “ 
rem 


:rem relative datei schliessen 


close 2 


gosub 55888: rem fehlerprusfung 


:rem befehlskanal schliessen 


539078 : 


532828 


close 15 


>» 
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rem Me 
rem ® “ 
rem ® disketten-fehler we 
w|n._—.;_;*;»,ereeree rem - * 
ven ee 


return 


aus satz-nr (sn%) : 

hi und io Fuer input#15,ern,er$,tr,bl 
rem positionierung errechnen if ern<28 then return 
rem dann auf entsprechendem if ern=-5® then return 
rem satz positionieren print "Cclr]” 
rem print ” disksttenfehler"”:print 
ren terre print T2spaces)fehler-nr[l3spaces): 
: "ern 
:rem sn = satz-nr print "2spaces]fehler-text 
: [Cshift-space): ”"er3 
hi=int (sn%/256) 1939 print "[@spaces)]fehler-spur 
lo=-sn%-hi*256 1882 Cshift-space): "tr 
print#15,”p” chr$ (2) chr$ (lo) chrs 2841 print "I2spaces)fehler-block: 
Chi) chr$ (1) close 15 
return 142 end 


BPTWELTLILELIIIDEI SEE Zn 719 gosub S5@80:rem satz anzeigen 


rem 720 : 

rem er 738 input "noch mehr anzeigen (j/n) ";a$ 
rem beispielprogramm Fusr 748 if a85="}” then 558 

rem 750 : 

rem relative dateien 760 : 

rem * 908 : 

rem EZ EZ EZ ZZ ZZ SZ EZ ZZ ZU SZ ZU ZU 2 2 2 2 2 2 2 2 2 2 2 2 9198 :rem datei E hliessen 


rem feldlaengen definieren 3 ; 


days 3,15,20,20,6,0 = Gene S3@80:rem abschliessen 


:rem feld-charakteristik _ = 


“ 980 : 
data n, a, 3, a,n,®e 330 : 
i 2028 ee ee a SZ 2 202 202 727 2 2 20202. 
da$="test120”:rem dateiname 2002 - “ 
BLRTUER N DE ML RINGE 2004 “= neuen satz eingeben “ 
: * 


b 200856 = 
gosub 50028: rem eroeffnen 2008 nz 


::rem tabellen sp. ; 2018 


i 2028 print “Iclr] satz singeben 
; h wen 
:rem satz schreiben 20308 ee 
a 2048 input "satznr[l2spaces)” ;sn% 
‘ 2058 teSti)=str$ (sn%) 
gosub 20808:rem inhalt eingeben 2058 input "namel4spaces]";te8(2) 
} 2078 input "ort[Sspaces)";te$(3) 
| gosub 52000: rem schreiben 2088 input "strasse ";te$CH) 
| if Fe%=-d then 399 2858 input "tel-nr[l2spaces)”;te$(5) 
if fe%"=1 then print "satz-nr 2108 print 
ausserhalb der datei I” 211® return 

N 212® : 
) input "noch mehr eingeben (j/n) ”;a$ 2130 : 
if ag="j" then 338 6803 a 
ı g222 ® “ 
| N 6994 * anzeige des satzes “ 
| :rem satz lesen 60856 = " 
l Fi 5228 0 AR Ak a aa a 
’ 6810 : 
print :print ”Ccolr] satz lesen :” 6828 print "Cclr)"” ' 
print 6038 print "[2spaces)satzinhalt :”:print 
input "welche satz-nr ";sn% 6048 print "satznr[l2spaces]: "te$(1) 
| : 5058 print "namel4spaces]: "te$(C2) 

gosub 51089: rem lesen 5068 print "ort[5Sspaces]: "teSC3) 

if fe%-1 then print "”satz-nr 6878 print "strasse ; "te$c4) 
ausserhalb der datei |”:goto 659 6088 print "tel-nrl2spaces]: "te$(5) 
if Fe%=2 then print "satz ist leer 6098 print 

I”:goto 658 5854 return 
B 6056 : 


Listing 3: Adressenverwaltung mit relativen Dateien. 
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System: C64 
Typ: Utility 
Sprache: Assembler 


Wer schon einmal versucht hat 
Textausgaben von Maschinen- 
oder compilierten Basicprogram- 
men auszulesen, der weiß, wie 
zeitaufwendig dies sein kann. Um 
dem gestreßten Programmierer 
unter die Ärme zu greifen, gibt es 
Charmon. Hinter diesem char- 
manten Namen verbirgt sich ein 
kleiner Monitor für ASCII-Codes. 
Sollen zum Beispiel Texte aus ei- 
nem Adventure gelesen oder ge- 
ändert werden, so wird zunächst 
der Monitor und anschließend das 
Spiel geladen. Der Monitor wird 
mit SYS 49152 aktiviert. Über die 
Funktionstasten können die Menü- 
punkte angewählt werden: 


Praxis Listing 


Charme 


Charmon ist ein Mini- 
monitor, der speziell 


für ASCI/-Codes ausge- 
legt ist. 


— Fl Durchsuchen und Ändern 
des Speicherinhaltes. 

— F3 Zeichenfolge suchen 

— F5Ende 


Das Programm ist als kombinier- 
ter Hexdump-Basiclader abge- 
druckt (Listing 1). Wie man mit die- 
ser Art von Listing umgeht, steht 


c088 18 data a9,02,39,8b,25,27,584,55, ec c158 448 data 
c208 20 data 02,89,01,54,55,02,20,=#, 31 c1EßB 458 data 
c81® 30 data e5,4c,58,c2,28,cc,c1,a5, df c1568 468 data 
c818 40 data f8,85,27,25,73,55,28,a2, se c178 478 data 
c029 50 data 0c,86,d5,28,28,84,d3,a2, 65 c17B 488 data 
cd28 60 data 8b,86,f7,ea,a5,27,85,d5, c4 c180 438 data 
c238 70 data a9,8d,28,16,e27,20,0a,c1, b5 | c18B 5028 data 
c838 Bd data 18,25,27,5693,1e,85,a7,a5, “4d c158 512 data 
cd4® 50 data aB,55,22,85,88,c6,f7,d8d, c3 c198 5208 data 
cd4B 108 data e2,28,23,82,12,18,20,0a, ba cla® 530 data 
c05® 110 data e5,18,22,12,24,d3,20,0a, 43 c1a8 548 data 
ca5B 1290 data e5,35,080,85,c0c,a5,cb,c9, e® c1b® S5® data 
c050 130 data 06,40,03,a9,01,60,85,c6, 12 c1bB S6® data 
cd6B 148 data F®,F3,20,b4,e5,86,06,d®, df c1cd 578 data 
c070 15® data 07,c39,88,d0,03,29,00,50, f2 cicB 580 data 
c078 16® data c9,3d4,d9,17,20,59,c1,b®, bc c1dd 530 data 
c0B2 178 data ®a,20,a1,c1,a2,26,86,d3, £3 c1ld8 608 data 
cdBB 188 data 4c,51,c0,20,89,c1,c6,d3, b5 c1ed® 618 data 
c030 130 data 4c,5d,c0,c9,1d,d0,18,20, 24 cie8B 628 data 
c0OSB 200 data 5e,c1,d0,03,4c,da,0®,28, 7c c1if®O 630 data 
cda® 210 data e9,c1,e6,d3,4c,5d,c0,c9, 21 c1fB 648 data 
cdaB 220 data 14,d0,05,89,9d,4c,78,c®, aa c200 6508 data 
c0b® 230 data c9,11,d0,00,85,d3,48,20, 75 c208 660 data 
cdbB 240 data 74,01,68,85,d3,4c,51,c®, ae c21® 678 data 
c0c® 250 data c9,20,d0,02,a9,a4,c9,91, b2 c218 680 data 
c0cB 260 data d®,0c,a5,d3,48,28,al,c1, Sd c220 639 data 
c0dd 270 data 68,85,d3,4c0,51,c80,c9,0d, b7? c228 798 data 
cdd8 280 data d®,0Ff,20,74,c1,89,09,85, 09 c238 710 data 
c0ed 290 data d3,a9,5d,8d,£7,06,4c,51, e5 c238 720 data 
cdeB 388 data c0,20,48,c1,b8,03,4c,5d, c2 c240® 730 data 
cof® 318 data c0,20,5e,c1,d0,0b,20,16, ®b c2e4B 748 data 
cdfB 328 data e7,20,63,c1,c6,d3,4c,da, ce c250 758 data 
c1008 330 data c0,20,16,e7,20,63,c1,4c, ®1 c258 7608 data 
c188 340 data 5d,c0,a0,00,84,02,84,c7, 7b c2608 770 data 
c11® 350 data e6,d3,a6,a7,85,38,20,cd, 62 c268 788 data 
c1il8 36® data bd,a®,08,86,d6,18,20,0a, 53 c270 790 data 
c120 370 data e5,89,33,20,16,e7,a9,201, 2d c278 808 data 
cie8 380 data 85,27,a4,02,b1,a7,c9,20, 12 c2802 681 data 
c130 390 data d0,02,89,24,20,48,c1,b®, bb c288 820 data 
c138 490 data 02,29,20,83,20,16,e7,e6, Sb c238 830 data 
c14® H4H1® data 02,25,02,09,1e,d0,df,68, 65 c238 849 data 
c148 420 data c9,30,b0,23,c39,20,98,04, ®2 c2a® 858 data 
c158 1430 data c9,80,30,02,18,60,38,5®8, 67 c2aB 8608 data 
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Monitor mit 


auf Seite (92). Wird das Programm 
als Basiclader eingegeben, so 


muß der Lader vor dem Start ab- 
gespeichert werden. Nach RUN 
werden die Daten in den Speicher 
gepoket. Das fertige Maschinen- 
programm kann dann mit 

POKE 143,0 :POKE 44,192 

POKE 145,171:POKE 46,198 

SAVE "name" ,8 

auf Diskette abgespeichert wer- 
den. Wird es als Hexdump einge- 
geben, so muß der Checker be- 
nutzt werden. Als Startadresse ist 
C000 anzugeben. Der Monitor 
wird mit LOAD".. .",8,1 geladen. 


(. Hammerschmidt EEE 


690,34,d3,c0,0a,60,a4,d3, 
c8,26,60,09,a4,d9,02,a8, 
20,a34,18,35,d3,89,09,a8, 
Ba,31,fb,60,20,8e9,c1,20, 
83,c2,20,3a,c2,a5,Ffb,18, 
69,1e,85,fb,a5,fc,69,280, 
85,fc,28,cc,c1,85,fd,B5, 
a7,85,fe,B5,38,a0,00,a2, 
17,18,208,80a,e5,28,Ba,cl, 
690,20,e9,c1,20,83,c2,20, 
f5,c1,a5,fb,38,89,18,85, 
Fb,b0,02,c6,fc,20,cc,ci, 
35,Ff8,85,a7,35,F9,85,38, 
18,a2,2d,a80,00,20,0a,e5, 
20,0a,c1,60,a6,fc,a5,fb, 
38,e9,96,85,f8,b9,021,ca, 
86,F9,36,fc,35,fb,18,69, 
96,85,fd,90,21,eB,86,fe, 
60,20,6c,8e5,a4,d3,bl,dl, 
093,80,31,d1,60,ea,89,07, 
85,ab,85,a9,39,70,85,aa, 
39,98,85,a8,a2,09,a0,26, 
b1,a3,91,a8,88,d0,F39,a5, 
aa,38,e9,28,85,a3,b®,22, 
c6,ab,a5,a8,38,e9,28,85, 
a8,b0,02,c6,a9,ca,10,de, 
a9,06,85,38,39,08,85,37, 
a0,06,a9,20,31,37,88,d2, 
fb,60,ea,a9,06,85,a2b,65, 
a9,a9,08,85,38,39,30,85, 
aa,a2,09,a0,26,bl,aa,Sl, 
a8,88,d0,F9,a5,38,18,69, 
28,85,aa,35,8b,63,00,85, 
ab,a5,a8,18,69,28,85,a8, 
a5,89,69,20,85,a9,ca,12, 
da,a9,07,85,88,a9,98,85, 
a7,80,06,89,20,31,87,88, 
d®O,fFb,69,ea,a5,fb,B5,a7, 
a5,fc,85,38,30,00,a2,12, 
18,20,03,e5,20,08,c1,6, 
a9,01,85,cc,39,800,85,c7, 
85,c6,39,21,8d,89,02,85, 
06,29,af,c2,4c,09,c03,20, 
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c358 
c368 
c378 
c378 
c388 
c388 
c338 
c398 
c3a® 
c3a8B 
c3b2 
c3bB 
£3c® 
c3c8B 
c3d® 
c3d8 
c3ed 
c38B 
c3f® 
c3fB 
c488 
c408 
c41® 
c418 
c4H2® 
c4H2B 
c43® 
c43B 
c442 
c44B 
c450 
c458 
cH60 
c4H6B 
c478 
c478 
c4B® 
c488 
c490 
c498 
cHa®d 
c4HaB 
cHb® 
c4bB 
c4cd 
c4cB 
c4d® 
c4dB 
c4Hed 
cH&eB 
cHfo 
c4HfB 
c520 
c52B 


12828 
1038 
12:8 
1858 
1858 
10878 
1852 
1832 
11908 
1110 
11208 
1130 
1148 
1158 
1168 
1170 
1180 
1190 
1208 
1218 
1220 
1238 
1248 
1258 
1268 
1270 
1288 
12398 
1300 
1310 
1320 
1338 
1340 
1358 
1368 
1378 
1388 
1398 
1408 
1410 
1420 
1438 
1440 
1450 
1468 
1478 
1488 
1490 
1508 
1518 
1528 
1530 
1548 
1550 
1568 
1578 
1588 
15928 
1608 
1618 
1620 


‚=2,85,37,39,cH, 
„@2,51,37,85,04, 


noin 


85,27,89,06,85, 
20,ff,e9,a9,5d, 
a7,80,27,31,87, 

„a7,18,69,28,85,87,85, 

„53,00,85,88,e8,e0,139, 
3@,21,29,b2,85,87,89,c5, 
=5,38,39,01,85,04,20,00, 
28,15,c4,a9,7d,8d,27,07, 
50,35,06,fd,fc,20,b4,e5, 
e3,85,d0,03,4c,bb,03,c9, 
85,£0,0d,c9,87,f0,03,H4c, 
23,03,20,44,25,6c,02,a0, 
ea,8a0,00,a9,64,85,87,a9, 
c5,85,a8,b1,87,85,04,c8, 
20,16,c4,a2,0d,86,25,20, 
38,c6,a6,05,f0,44,86,a5, 
a9,02,85,88,89,76,85,87, 
a2,00,a0,20,b1,a7,dd,53, 
02,d0,32,c8,eB,e4,25,d2, 
£f3,a5,a7,85,fb,4B,a5,a8, 
B5,fc,48,89,00,85,06,20, 
14,00,28,68,85,88,68,85, 
a7,98,d0,02,36,a5,86,05, 
a9,01,85,cc,20,e9,c1,"c, 
Bd,c3,4c,98,c2,e6,a7,d®, 
bF,s6,a8,d®,bb,39,01,85, 
cc,39,00,85,07,20,af,c2, 
a9,dc,85,37,39,05,85,88, 
a0,00,b1,a7,85,24,cB,20, 
16,c4,a5,cb,c9,40,Ff®,Fa, 
40c,98,c2,a9,fd,B5,a7,a9, 
c5,85,a8,a0,00,b1,87,85, 
04,c8,29,16,c4,32,05,56, 
05,20,38,c6,F0,20,a3,53, 
85,7a,a9,02,85,7b,20,793, 
00,20,f3,bc,280,3b,bc,a5, 
63,d0,08,85,65,85,fb,a5, 
64,B5,fc,20,14,C0,402,98, 
c2,39,16,85,37,89,c6,85, 
a8B,a0,00,b1,a7,85,24,cB, 
20,16,c4,a9,00,85,c6,85, 
c6,Ffd,fc,4c,98,c2,ea,bi, 
a7,85,d6,c8,b1,37,85,d3, 
84,03,a6,d6,34,d3,18,20, 
0a,85,a4,03,c8,b1,a7,55, 
02,c8,b1,a7,c9,490,d0,08, 
a5,07,49,01,85,07,4c,44, 
c4,20,16,87,c8,d0,02,6e6, 
a8,c6,02,d0,e5,c6,04,d®, 
c5,560,08,021,01,07,43,48, 
41,52,4d,4f,48e,02,01,07, 
c0,c0,c0,c0,c80,c0,c0,04, 
01,26,40,46,31,40,20,53, 
50,45,49,43,48,45,52,20, 
417,.4@,53,493,48,91,555439; 
48,2c,20,20,47,47,46,2e, 
20,41,45,48,44,45,52,4e, 
06,21,26,490,46,33,40,20, 
5a,45,49,43,48,45,4e,46, 
4P,40,47,45,20,53,55,43, 
48,45,4e,20,20,47,47,46, 
28,20,41,45,48,44,35,52, 
48,08,01,28,40,46,35,42, 
20,42,45,45,4e,44,49,47, 
55,48,47,20,44,45,52,22, 
40,41,55,46,45,48,44,45, 
4e,20,54,41,45,54,49,47, 
4b,45,49,54,0a4,00,28,b2, 
c8,c0,c0,c8,c8,c0,c0,cß, 
c8,c0,c0,c0,c0,c08,c®,cB, 
c8,c8,c8,c8,c0,c0,c0,c®, 
c8,c0,c0,c0,c0,c0,c0,cß, 
c8,c0,c0,c0,c8,c®,ae,®b, 


erh 


Kombinierter Hexdump Basiclader zu „Charmon“ 
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1638 
1649 
1658 
1668 
1678 
1688 
1690 
1798 
1718 
17208 
1738 
1748 
1750 
1768 
1779 
1780 
1798 
18008 
1810 
1820 
1838 
1840 
1858 
1868 
1878 
1882 
1839 
1300 
1919 
1928 
1938 
1948 
1958 
1968 
1970 
1988 
1990 
29008 
22010 
20208 
2039 
2048 
2050 
2OEO 
2079 
2082 
2030 
2108 
211® 
2120 
2130 
2149 


60000 


690218 


60020 


60039 
60049 
60059 
69968 
60070 
60882 


60038 


data 80,28,dd,20,20,20,29,22, 
data 20,208,20,20,20,20,20,20, 
data 29,20,20,20,20,20,20,20, 
data 20,20,20,20,20,20,20,22, 
data 20,20,20,20,20,20,20,20, 
data 29,dd,2c,00,27,ab,c®,c2, 
data c®,c0,c0,c0,c0,c0,c00,c®, 
data c2,c2,c0,c20,c0,00,c0,c®, 
data c2,c0,c0,c00,c0,00,02,c2, 
data c0,c0,c8,c0,c0,c0,00,c®, 
data c0,c0,c0,c0,02,0b,17,12, 
data 30,20,49,46,37,40,3a,57, 
data 45,49,54,45,52,53,55,43, 
data 48,45,02b6,01,09,53,55,43, 
data 48,57,4f,52,54,3a,ea,®c, 
data 20,28,dd,20,20,20,20,22, 
data. 20,20,20,20,20,20,20,20, 
data 20,20,20,20,20,20,20,20, 
data 20,20,20,20,20,20,20,20, 
data 20,20,20,20,20,20,20,20, 
data 20,dd,18,20,27,ad,c0,c2, 
data c90,c0,c0,c8,c8,c0,c0,c®, 
data c0,c0,c8,c80,c0,c0,c0,c®, 
data c8,c0,c0,c2,c0,c0,c2,c®d, 
data c0,c0,c8,c8,c0,c0,c®,c®, 
data c9,c8,c8,c8,21,0e,21,1d, 
data 48,49,43,48,54,20,47,45, 
data 46,55,4e,44,45,4e,21,20, 
data 28,53,58,41,43,45,2d,54, 
data 41,53,54,45,29,02,06,17, 
data 01,3c,02b,01,11,41,44,52, 
data 45,53,53,45,20,45,49,4e, 
data 47,45,42,45,4e,3a,01,®e, 
data O1,1e,45,41,40,53,43,48, 
data 45, 290,45,49,4e,47,41,42, 
data 45,21,20,28,53,590,41,43, 
data 45 24,54,97 ,5375%7,45,29; 
data 39,20,85,06,39,00,B5,cc, 
data a2,00,235,cb,c9,06,d2,23, 
data 86,05,50,25,06,f®0,f3,86, 
data 03,20,b4,=5,36,03,09,0d, 
data d®,16,29,01,85,0c, 39,08, 
data 3d4,59,02,85,05,a6,d3,bd, 
data 99,05,29,7F,9d4,90,05,60, 
data c3,14,d8,21,ca,10,04,88, 
data 4c,42,c6,86,23,86,d3,bd, 
data 90,05,23,7F,9d,90,05,a86, 
data 03,c6,d3,a9,20,20,16,67, 
data c6,d3,4c,42,c6,20,48,c1, 
data S0,38,e4,25,d0,03,4c,42, 
data c6,20,16,e2e7,94,59,22,®8, 
data 4c0,42,c6,200,00,00,00,00, 


for a=49152 to 588556 step 
8:5=d:c=d:for b=B to 7: 
gosub 60049 
s=s+h+l-c:c0=s>255: s=-255-s 
and 255:poke a+tb,h+tl:next 
b:gosub 5600249 
f$="pruefsumme ok"”:if s<> 
h+l then F$="[rvs) 
pruefsummenfehler”:f-f+1 
gosub 60898:next a:print ” 
CdownJ”f”Ffehler”:end 

read h$:gosub 69050: h=1* 
16:h$=mid$ Ch$,2) 

l=-asc Ch$+"x”)-4B:if 1<0O 
or 1>22 then 60882 

if 1<18 then return 
1=1-7:if 1>9 then return 
F$=-"[rvsleingabefehler”:1- 
O:£f=f+1 

print ”zeile” peek (64)* 
256+psek (63)f$:return 


4a44 


so34 


5539 


2267 
RAR) 
3198 
1844 
1334 
2462 


2726 


Praxis Listing ums un 2a RE aa, 


Plattenchaos — 
nein danke! 


System: C128-Laufwerk 
Typ: Anwender 
Sprache: Basic 


Wer bei seiner Plattensammlung 
keinen Durchblick mehr hat und 
endlich Ordnung schaffen will, 
wird von „Musikregister” unter- 
stützt. Nicht weniger als 2000 Mu- 
siktitel, Interpreten, und Art der 
Tonträger können verwaltet wer- 
den. Nach dem erstmaligen Star- 
ten des Programms werden neun 
Verzeichnislisten speziell nach 
den Wünschen des Benutzers an- 
gelegt. Sind diese Dateien gene- 
riert, so erscheint das Hauptmenü 
auf dem Bildschirm: 

— Eingeben 

Bei der Eingabe werden Eintra- 
gungen in das vorher angewählte 
Verzeichnis vorgenommen. 

— Suchen 


rem 
.. 


rem 
“. 


rem 
.. 


rem 
.. 


rem 
.. 


rem 
.. 


rem 
“.. 


rem 


or; 


“004% musikregister 


ELTTTTT von 
ELTTTTT renate kopp 


dim t1$(2000), ipS(2002) ,pt$(2000), 


keS(2099) 

scncelr 

print :print :print 
’verzeichnisauswahl 
dopen #2, "verzeichnis” 
if ds<>62 goto 138 


delose :dopen #2, "verzeichnis”,w 


for z=1 to 9 
vz$5(z)="-”:print#2,vz$(2) 
next 


delose :dopen #2, "verzeichnis” 


for z=-1 to 9 
input#2,vz$(z) 

if vz$(z)<>”-” then q=g+1 
print z,vz$5(z):print 


next :dclose :if q<1 goto 658 


print ” 8”, ”"ende” 


print :print "welche nummer 


wuenschen sie”:get key z 
if z=® then end 
vz5-vz$&(z) 
scenelr 


print :print :print "moment bitte ! 
print :print :print ”das verzeichnis 
print :print ”[15spaces,rvs)”;vz$(z) 
print :print :print ”wird geladen” 


gosub 1092 
scnelr 
print vz$ 


BERENRRRARH HE HHEH EU EHE EHE EU 


„nn... nn... .nn....nnn....n...... 


Das Programm „Musik- 
register“ nützt den 


Speicher des C128.bis 
zum Außersten aus. 


Hier werden zunächst vier Such- 
kriterien abgefragt. Falls die voll- 
ständige Bezeichnung nicht be- 
kannt ist, so genügt eine Eingabe. 
Darauf sucht das Programm alle 
Eintragungen mit dieser Teilbe- 
zeichnung heraus. Bei Angabe 
von mehreren Suchkriterien wer- 
den nur Eintragungen herausge- 
sucht, die diese Kriterien erfüllen. 
— Ändern 

Mit diesem Menüpunkt kann je- 
der Eintrag nachträglich geändert 
werden. Vorerst wird jedoch die 
Suchroutine aufgerufen, da zum 


print :print 
Coff)” 
-.n.n..... 
"eingeben 
print :print 


"suchen... .++ 


print :print 
Bu. print :print 
"loeschen 
print :print 
"drucken 
print :print 


eintragen..6 


print :print : 


Der Ablauf ist ähnlich wie beider 


far-! 
ua 


Änderungsroutine, wederum 
die Satznummer benötigt wird. 
Der betreffende Satz wird 
kennzeichnet und beim Zurück- 
schreiben nach einem Abbruch 
übersprungen. 

— Drucken 

Dieser Menüpunkt entspricht im 
wesentlichen dem Punkt „Su- 
chen“, die Ausgabe wird lediglich 
auf einen Drucker umgeleitet. 

— Verzeichnis eintragen 

Die Verzeichnisliste kann ergänzt 
werden. 

— Verzeichnis ändern 

Das Programm springt zum An- 
fang und ermöglicht den Über- 
gang in ein anderes Verzeichnis. 


(R. Kopp) EEE 


Crea- 
YT 


:print "Crvs]Jauswahl 


.orerunee ..@ 


"verzeichnis 


print :print "verzeichnis 


print :print 
"ende 


aendern....7 


8 
get key aw:on aw goto 470,4390,500, 
500,480,680,190,460 


end 


gosub 928:goto 349 


if aw=-5 then open 4,4 


sencelr :gosub 12900:goto 349 


senclr 


print :print "suchen j/n 


(T=abbruch)”:get key fr$ 


if fr$="j" then gosub 1208 

if frS="t” then gosub 1148:goto 348 
if aw=3 goto 578 

print :input ”welche nummer soll 


geloescht werden”;y:if y=® goto 588 
t1$5(y)=-"*":goto 598 
print :input "welche 


nummer soll 


geaendert werden”;y:if y=® goto 5008 


senelr :print :print 


print 


vz2S5:print : 


input. "titel:”";t1$(y) 


print :input 
print :input 
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"interpret:”;ipSCy) 
"nlatten oder 
kassttentitel:”;pt$(y) 


print :input "kennung: ”;ke$(y) 
scnelr 

print :print 
print :print tl$(y):print :print 


:print "eintrag”;y: 
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nz. :print ptS(y) 
int keS(x):print :print : 3885 


n 

658 pri=t 

pri=t "richtig ?":get key fr5 
668 if Een” goto SBB 1256 
678 got> 528 554 
688 smeir e3e2 
638 far z=1 t0 9 761 
78 zeimt z,vzS(z) 18828 
7ı@ maxt 138 
728 zeint print :input "welche nummer 5778 

wwenschen sie[l13spaces](abbruch mit 
2";,z 

Te if z=® goto 879 1838 
7=2 zrint :print :input "bezeichnung”; 2736 

vzS(z) 
758 dopen #1, (vz$(z)),w 1736 
75@ if ds<>63 goto 848 1486 
778 print :print "dieses verzeichnis 4363 

gibt es bereits”:print :dclose 
788 print :print "ueberschreiben j/n ”: 4386 

get key q$:if q$<>”3j” goto 638 - 
798 scratch (vz$(z)) 1831 
808 for zz=1 to 9 828 
818 if vz$(zz)=-vz$(z) then vz$(zz)=-"-" 3858 
828 next zz 415 
838 dopen #1, "@"+(Cvz$(z)),w 1992 
840 qS=-"t”:print#1,q4$ 1126 
858 dclose 284 
868 goto 698 5.2 
878 dopen #2, "@verzeichnis”,w 2164 
888 For z=-1 to 9 761 
898 print#2,vz$(z) 393 
990 next 138 
8128 dcelose :goto 348 783 
928 scnclr :print :print vz$:print : 1727 

print 
938 print "eintrag”;x:print :print : 2228 

print 
948 if Fre (1)>500 goto 390 1349 


958 print :print :print "[rvs, 1Bspaces] 2858 
achtung[ 15spaces, off)” 


868 print :print :print "[rvs])der 3441 
speicher ist Fast voll 

978 print :print :print "[rvsles sind 4837 
nur noch”;fre (1); "[left] bytes 
freiloff)” 

980 print :print :print "C[rvs)fuer 7789 


weitere eintragungen verwenden sie 
bitte ein naues verzeichnisloff]": 
print :print 
998 input "titel (T=abbruch):”;t1$Cx) 2602 
1888 if t1l$Cx)="t” then gosub 1140:return 16998 
1018 print :input "interpret:”;ip$:ip$(x) 2986 
-ipS 
1028 print :input "platten oder 4151 
kasettentitel: ”;pt$:ptSCcx)=ptS 
1838 print :input "kennung: ”;ke$:ke$Cx)- 2692 


1048 scnclr 232 


„Musikregister“ verwaltet Schallplatten 


print :print :print "eintrag”;x: 
print :print tl$5(x):print :print 
ipS(x):print :print pt$(x) 


5004 


1868 print :print ke$(x):print :print : 3885 
print "richtig ?”:get key fr$ 
1078 if fr$=-"n"” goto 920 1240 
1088 x=x+1:goto 928 BEl 
1898 dopen #1,(vz$) 19868 
1188 for x-1 to 2908 872 
1118 input#1,t1S$(x),ipS(Cx), pt$(x),keS(x) 2634 
1128 if t1SCx)="t” then dcelose :return 1789 
1138 next 130 
1148 dopen #1, "@”+(v2$5),w 1686 
1158 for x=1 to 2988 872 
11608 if t1$Cx)=-"*=" goto 1188 1118 
1178 print#1,t15(x)”, "ip$cx)”, "ptScx)”,” 3262 
keS(x) 
1188 if t1$(x)="tT” then dclose :return 1783 
1198 next 130 
1208 print :print :print "”suchen” 1563 
1210 tl$=-"":ip$=-"":pts-”” 1765 
1228 input "titel (CT=abbruch, *-alle):"; 3198 
tl$ 
1238 if t1$<>"tT” goto 1268 1184 
1240 if aw=5 then closs 4 994 
1258 return 142 
1268 print :input "interpret:";ipS 2007 
1278 print :input "platten oder 3258 
5 kasettentitel:”;ptS 
1288 scnclr EZ 
1298 for x=1 to 2998 872 


1308 if aw=3 and t1l5(x)="”t” then return 1627 
1318 if aw-4 and t1$(x)="t"” then return 1643 
1320 if t15Cx)="tT” then print :print 5351 
"kein weiterer eintrag”:get key q$: 
scnelr :goto 1208 


1330 if t15-"*" goto 1408 1230 
1348 if tl$-"" goto 1368 1328 
1358 if instr (tl$(x),t15)-® goto 1508 2198 
1360 if ip$="" goto 1388 1330 
1378 if instr (ipS$S(x),ip$)-® goto 1508 1997 
1388 if pts="" goto 1400 1330 
1398 if instr (pt$(x),pt$S)-® goto 1508 2087 
1400 if aw-5 goto 1462 895 
1418 print "titel nr"x": "t1S5Cx) 1965 
1428 print :print "interpret: "ip$(x) 2054 
1438 print :print "platten oder 3527 
kasettentitel: "ptSCx) 

1448 print :print "kennung: "kaS(x) eı129 
1458 print :print 6785 
"ee dan 108, De ee 12 AR 

u... ";print :get key q$:goto 1500 
1468 print#4, "titel nr"x”: ”"t15Cx) 1815 
1478 print#4, "interpret: "ip$(x) 2115 
1488 print#4, "platten- oder 3229 
kasettentitel: "ptSCx) 
1498 print#4, "kennung: Cshift-space)]” 2393 
ke$(x):print#4 
1508 next x 306 


Fortsetzung von Seite 5] 


Mit dem eingebauten TEDMON kann man sich im 
ROM umsehen, mit PEEK, also von Basic aus, geht 
das nicht so ohne weiteres, denn PEEK liest norma- 
lerweise nur aus demRAM. 


Token sparen Speicher 
MEET. EEE 


Listing | zeigt, wie man mit PEEK alle Befehlswörter 
des Basic 3.5 auslesen und in den Bildschirm schrei- 
ben kann. Wie man sieht, stehen die Befehlswörter 
ohne Zwischenraum im Speicher. Der jeweils letzte 
Buchstabe ist dadurch gekennzeichnet, daß zu sei- 
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nem normalen ASCII-Wert die Zahl 128 addiert wur- 
de, dadurch erscheint er auf dem Bildschirm invers. 
Der Computer hat eine Vorliebe für diese Kenn- 
zeichnung, die bedeutet, daß das höchste (128er) Bit 
gesetzt ist. Die Umwandlung der Befehlswörter in To- 
ken geschieht im Input- oder Eingabe-Puffer, der — 
neben anderen Bereichen des Systemspeichers (256 
bis 2048) — in der nächsten Folge unter die Lupe ge- 
nommen werden soll. Außerdem sollen einfache An- 
wendungen des TEDMONs besprochen werden, 
zum Beispiel das Abspeichern von Grafiken oder 
kleinen Maschinenprogrammen, wie sie häufig in 
Tips angeboten werden. 


(Dr. Marie-Luise Beyer) EEE 
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Hires-Bitmap — 
mal ganz groß 


System: C64/Floppy 
Typ: Utility 
Sprache: Asm 


Ob groß oder klein — als Poster 
oder als Miniatur — das Pro- 
gramm gestaltet Hires-Bilder spe- 
ziell nach den Wünschen des Be- 
nutzers. Die Bilder sollten als Hi- 
res-Bitmap mit 33 Blöcken auf Dis- 
kette vorliegen. Das Programm 
wird von (Listing 1) aufgerufen 
und gestartet. Der Grafikbild- 
schirm ($2000-$4000) wird wäh- 
rend des Ladens nicht gelöscht. 
Da viele andere Programme ihren 
Grafikbildschirm im gleichen 
Speicherbereich haben, kann 
man ein Programm mit RESET ver- 
lassen, „Micro — Macro" laden, 
und evenmell noch vorhandene 
Grafik weiterbearbeiten. 

Das Programm bietet folgende 
Menüpunkte: 

— Mit „I” kann ein Bild von der 

Diskette geladen werden. 


rem lader 


a=-a*+i 


if a=1 then load”mikro - makro”,B,1 


poke 157,0 
sys 32973 


ready. 


mikro - makro 


Mit „Micro — Macro“ 
können Grafiken belie- 
big vergrößert oder 
verkleinert werden. 


— „2“ invertiert ein vorhandenes 
Bild. 

— „3“ und „4“ dehnen die Gra- 
fik in waagrechte beziehungs- 
weise senkrechte Richtung. 


— „5" vergrößert das Bild in bei- 
de Richtungen. 


— Die Funktionen „6" bis „8" ent- 
sprechen den Punkten „3" bis 
„4", das Bild wird jedoch ver- 
kleinert. 


Das Programm speichert das je- 
weilige Ergebnis sofort auf Disket- 
te ab. Bei Menüpunkt „5* werden 


8900 
80028 
8019 
8018 
8920 
80228 
8838 
8038 
8240 
824B 
8050 
80258 
B262 
8068 
8079 


a2,08,20,28,20,ba,fFf,aS, 
04,22,00,20,02,20,bd,ff, 
a9,00,a2,00,20,20,20,d5, 
F£F,50,39,00,85,fb,a9,20, 
85,fc,a2,08,20,ba,Fff,aS, 
08,a2,05,30,80,20,bd,ff, 
a9,fb,a2,00,20,40,20,d8, 
£fF,560,78,60,58,608,24,ea, 
a9,01,85,b7,a9,01,85,bB, 
a9,00,85,69,39,08,85,ba, 
39,38,85,bb,a9,80,85,bc, 
29,c0,ff,a2,01,20,c6,ff, 
28,3e,f1,20,3e,f1,28,3e, 
f1,20,3e,f1,20,3e,f1,48, 
20,3e8e,f1,a8,68,a3,98,20, 
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- 


beispielsweise vier Bilder mit je- 


wendet man entweder ei 
ne Hardcopyroutine oder benutzt 
dazu ein Malprogramm. 


„Mikro — Makro“ ist als kombi- 
nierter Hexdump-Basiclader ab- 
gedruckt (Listing 2). Wird das Pro- 
gramm als Basiclader eingege- 
ben, so muß der Lader vor dem 
Start abgespeichert werden. Nach 
RUN werden die Daten in den 
Speicher gepoket. Das fertige Ma- 
schinenprogramm kann dann mit 
POKE 43, 0:POKE 44,128 

POKE 45, 19:POKE 46,147 

SAVE "name" ,8 

auf Diskette abgespeichert wer- 
den. Wird es als Hexdump einge- 
geben, so muß der Checker be- 
nutzt werden. Als Startadresse ist 
C000 anzugeben. Das Programm 
wird mit LOAD“. . .",8,1 geladen. 


(R. Hobbold) EEE 


cd,bd,28,3e,f1,28,ca,fl, 
c9,00,d0,f6,a9,2d,20,ca, 
f1,20,3e,f1,c9,928,d0,dS, 
29,cc,ff,a9,01,20,c3,Fff, 
690,39,02,85,fb,a9,20,85, 
fc,a2,00,20,00,39,00,bi1, 
£fb,49,ff,ea,931,fb,c8,S8, 
c9,00,d0,f3,e6,fc,a5,fc, 
c9,490,d80,eb,60,80,40,20, 
10,08,04,02,01,40,3a,42, 
49,4c,44,20,2d,a9,8e,8d, 
02,00,20,d2,ff,ea,20,3a, 
80,ea,a9,97,30,90,28,1e, 
ab,ea,a9,0F,8d,20,d0,aS, 
DOFf,8d,21,d0,a9,93,80,50, 
2d,l1e,ab,ea,aS,02d,29,d2, 
ff,ea,a9,c0,a08,58,20,1e, 
ab,ea,a9,2d,20,d2,fFf,ea, 
a9,e6,a80,50,28,1e,ab,ea, 
a9,0d,29,d2,ff,ea,a9,0c, 
a0,91,20,1e,ab,ea,a9,0d, 
20,d2,ff;ea,a9,32,80,31, 
29,1e,ab,ea,aS,2d,20,d2, 
FfF,ea,a9,58,a0,31,20,1e, 
ab,ea,83,0d4,28,d2,Fff,ea, 
a9,7e,380,51,20,1e,ab,ea, 
a9,0d,20,d2,ff,ea,a9,ait, 
a0,91,28,1e,ab,ea,a9,0d, 
20,d2,ff,ea,a9,ce,a®d,31, 
20,1e,ab,sa,a9,0d,20,d2, 
ff,ea,a3,e3,a0,31,28,1e, 
ab,ea,a9,0d,20,d2,Ff,ea, 
a9,0a2,20,92,28,1e,ab,sa, 
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in se 
+90 
90 


Enke 
BAR 


nunının 


FENT 


1228 
1038 
1940 
1258 
1060 
1970 
1088 
1030 
1108 
1110 
11228 
11390 
1140 
1159 
1169 
1170 
1180 
1198 
1208 
1210 
1228 
1238 


=23,84,28,d2,Ff,ea,a9,2d, 
=02,52,20,1e,ab,sa,a9,2d, 
28,d2,fFf,ea,a9,50,a0,32, 
2@,1e,ab,83,a5,0d,20,d2, 
Ff,ea,a9,75,a0,92,20,1e, 
ab,ea,39,0d4,20,d2,ff,ea, 
a5,58,30,92,20,1e,ab,ea, 
a9,0d,20,d2,Ff,sea,a9,bb, 
ad,92,20,l1e,ab,ea,a9,0d, 
ed,d2,ff,ea,a9,e8,a0,32, 
Ed,l1e,ab,ea,a9,0d,29,d2, 
£ff,ea,a9,1b,8d,11,d0,20, 
2d,89,ad,6f,23,c9,00,d2, 
Ba,ad,62,23,c9,31,d8,03, 
4c,78,82,ad,6f,03,c9,00, 
d®d,0a,ad,6e2,03,c9,32,d®, 


03,4c,06,83,ad,6f,03,c9, 
00,d0,2a,ad,5e,03,c9,33,: 


d®0,03,4c,2c,83,ad,6f,03, 
c9,09,d0,da,ad,6e,23,c3, 
34,d0,03,4c,48,84,ad,6fF, 
03,c9,00,d®,0a,ad,6e,03, 
c9,35,d2,03,4c,49,85,8d, 
6f,03,c3,20,d®,8a,ad,Be, 
03,c9,36,d0,03,4c,d5,86, 
ad,6f,23,c09,20,d2,Ba,ad, 
68,03,c9,37,d8,03,4c,88, 
B7,ad,6f,23,c9,00,d®,2a, 
ad,5e,83,c9,38,d8,283,4c, 
3b,88,ad,6f,83,c9,80,d®, 
®a,ad,68e,03,c9,39,d®,03, 
4c,f8,88,4c,df,81,839,00, 
8d,c6,20,20,3c,88,ea,a3, 
00,8d4,30,23,39,00,8d,3d, 
03,39,00,8d,52,03,29,22, 
8d,53,03,89,f9,a0,392,2®0, 
le,ab,ea,20,560,85,ea,ad, 
52,03,85,fe,ad,53,03,85, 
ff,a®,080,8c,6f,03,b1,FfFe, 
Bd,62,03,ad,6f,03,c9,00, 
d®d,2a,ad,62,23,c9,2898,d2, 
03,30,F1,Be,8d, 36;03,18; 
69,21,84,3c,03,ad,3d,®23, 
63,00,84,3d,03,ad,52,03, 
18,69,01,8d,52,03,ad,53, 
03,69,00,84,53,03,4c, a7, 
82,2d,30,83,84,08,80,aS, 
0b,8d,11,d0,28,f7,89,28, 
20,80,ea,4c,89,39,39,0b, 
8d,11,d0,20,F7,89,20,0d, 
89,ad,6f,23,c39,00,d0,0a, 
ad,62,03,c9,52,d8,03,4c, 
25,83,4c,89,990,20,99,80, 
sa,4c,08,83,20,42,89,a8, 
00,8d,52,03,a9,00,8d,53, 
03,89,00,84,54,03,a9,20, 
8d,55,03,20,75,83,29,4c, 
8d,cc,80,28,1a,80,ea,2®, 
b7,89,39,20,84,54,03,a9, 
00,84,55,03,a9,a0,8d4,52, 
03,a9,20,8d4,53,03,20,75, 
83,a9,52,8d,cc,89,20,1a, 
80,ea,4c,89,39,20,34,30, 
20,47,8Ba,ad,5b,03,c9,20, 
d®d,0a,ad,5a,23,c9,00,d2, 
03,4c,b6,83,ad,3c0,03,18B, 
6d,3c,03,8d,63,03,ad,3d, 
03,6d4,3d,03,8d4,6b,23,20, 
49,8d,ad,63,03,18,69,01, 
8d,63,03,ad,6b,03,69,22, 
8d,6b,23,20,49,8d,ad,3c, 
03,18,69,21,8d,30,23,ad, 
3d,23,69,20,8d,3d,23,ad, 
52,03,18,69,01,8d,52,03, 
ad,53,03,69,280,84,53,23, 
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83d8 
8380 
8388 
B3F2 
83FB 
8408 
8408 
8419 
8418 
84228 
8428 
8439 
8438 
8449 
8448 
8450 
8458 


8450. 


8468 
8479 
847B 
8480 
8488 
B490 
8498 
BHtad 
B4aB 
84b® 
84b8 
84c8 
84c8 
84d® 
8448 
Bted 
B4sB 
B4FO 
g4Ff8 
8508 
8598 
8518 
8518 
8520 
852B 
8530 
8538 
8540 
8548 
8550 
8558 
B560 
8568 
85798 
8578 
8589 
8588 
8598 
8538 
85a0 
8588 
BS5b2 
85b8B 
85c0 
85c8 
85d2 
85d8 
8580 
8588 
85Ff® 
BSFB 
8690 
8688 
8612 
8618 
8622 
8628 


ad,3d,03,c9,28,d2,2a,ad, 
3c,823,c9,39,d0,03,4c,ec, 
83,4c,78,83,ad,60,03,18, 
69,21,84,6c,203,ad,6d, 023, 
69,202,84,64,23,89,00,8d, 
3c,23,29,00,84,3d,03,a9, 
02,84,52,03,a9,00,8d,6b, 
03,3d,54,03,18,69,021,8d, 
54,03,ad,55,03,69,00,8d, 
55,803,ad,52,03,38,e9, a0, 
8d,52,03,ad,53,03,e9,2®, 
8d,53,23,2d,6d,23,c09,00, 
d®,0a,ad,56c,23,c9,08,d2, 
803,4c,47,84,40,78,83,69, 
20,42,89,28,5d,90,20,82, 
84,39,4Ff,8d,cc,880,20,1a, 
890,2a,20,b7,89,29,00,8d, 
52,03,a9,090,84,53,03,89, 
64,8d4,54,23,39,00,8d4,55, 
03,20,80,84,89,55,8d,cc, 
898,20,12,88,8a,40,89,90, 
20,34,39,298,47,8a,ad,5b, 
03,c9,22,d8,0a,ad,58,03, 
c9,08,d8,83,4c,c1,B4,ad, 
38,23,18,6d,38e,23,8d,6c, 
03,2d,3F,23,6d,3Ff,03,8d, 
64,23,29,49,8d,ad,60,23, 
18,69,81,8d,6c,03,ad,6d, 
03,563,928,8d,6d4,23,20,43, 
8d,ad,52,23,18,69,01,8d, 
53,903,2d,55,03,59,00,8d, 
6b, 23,2ad,52,03,18,569, 01, 
8d4,52,03,84,53,03,69,90, 
8d,53,83,2d,6b,23,09,01, 
d®,23,24,53,903,09,40,d0, 
83,4c,F7,84,4c,B3,84,ad, 
38,03,18,59,01,8d,3e,03, 
ad,3Ff,03,69,00,8d,3F,03, 
=33,020,8d4,562,03,a9,00,Bd, 
6b,823,2d,54,03,18,69, 01, 
8d4,54,03,ad,55,03,69,20, 
84,55,03,2d,52,03,38,eS, 
48,84,52,03,2d,53,03,eS, 
01,84,53,03,ad,3f,03,c8, 
22,d0,0a,3d,38,03,c9,6#, 
d®,823,4c,48,85,40,83,84, 
658,28,42,83,20,5d,90,20, 
c7,85,39,31,8d,cc,88,20, 
1a,880,8a,20,b7,89,a9,22, 
8d,54,03,a9,00,8d,55,023, 
a9,80,8d4,52,03,39,00,Bd, 
53,03,20,c7,85,a9,32,Bd, 
cc,80,20,1a,80,ea,20,b7, 
89,39,64,8d,54,03,a9,20, 
8d4,55,03,&9,00,84,52,03, 
a9,020,84,53,03,20,07,85, 
a9,33,8d,cc,80,22,1a,82, 
ea,20,b7,89,a9,64,8d,54, 
03,39,008,84,55,03,89,a0, 
84,52,03,a9,00,8d,53,03, 
20,c7,85,a9,34,8d,cc,89, 
20,12,89,8a,4c,89,90,20, 
34,90,20,47,Ba,ad,5b,023, 
c9,00,d2,0a,ad,53,83,c9, 
202,d0,03,40,43,86,ad,3c, 
03,18,6d,30,03,8d,6a,03, 
ad,3d,23,64,3d,03,8d,6b, 
03,ad,3e,03,18,6d,3e, 23, 
8d,6c,23,ad,3f,03,6d,3F, 
03,8d,6d,03,20,49,8d,ad, 
6a4,03,18,69,21,8d,6a,23, 
ad,5b,23,69,00,8d,6b,23, 
20,49,8d,8d,60,23,18,69, 
01,8d,60,23,ad,6d, 23,69, 
22,8d,64,03,20,49,Bd,ad, 
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1938 
29298 
2010 
20228 
2930 
2049 
2059 
20608 
2072 
2089 
2038 
2108 
2110 
2120 
2130 
2140 
2158 
2168 
2170 
2180 
2190 
2208 
2210 
2220 
2238 
2240 
2258 
2260 
2270 
2288 
[-1=4=17) 
23008 
2319 
2328 
2338 
2348 
2359 
2368 
2378 
2388 


68,23,38,23,01,8d,58,23, 
ad,6b,03,e9,00,8d,6b,23, 
20,493,8d,ad,3c,03,18,63, 
01,84,30,03,ad,3d,83,68, 
00,84,3d,03,ad,52,03,18, 
63,01,8d,52,03,ad,53,83, 
63,00,84,53,03,ad,3d,23, 
c3,02,d0,0a,ad,3c,83,c8, 
a0d,d0,23,40,79,86,4c,ca, 
85,8d,3e,23,18,69,01,8d, 
3e,23,ad,3f,03,69,20,8d, 
3f,03,a9,00,8d,3c,23,25, 
02,8d4,3d,03,29,22,8d,5a, 
203,a9,00,8d,6b,03,ad,54, 
03,18,69,01,8d,54,23,ad, 
55,03,69,00,8d,55,23,ad, 
52,03,38,e9,30,84,52,®3, 
ad,53,03,e9,08,84,53,®3, 
ad,3Ff,03,c9,08,d2,2a,ad, 
38,03,c9,564,d8,23,4c,d#, 
86,4c,ca,85,69,20,42,89, 
20,5d,98,25,50,8d,62,83, 
a3,00,84,56,23,20,47,Ba, 
ad,5b,83,c9,20,d0,2a,ad, 
5a,23,c39,00,d0,83,4c,fc, 
B6,28,493,8d,2ad,52,83,18, 
53,02,34,52,03,ad,53,03, 
693,28,84,53,03,ad,5a,23, 
18,569,01,84,63,83,ad,5Sb, 
83,63,22,8d,6b,03,ad,53, 
23,c3,801,d0,0a,ad,52,23, 
e3,498,d0,03,40,32,87,4c, 
=5,556,39,090,8d,52,03,8S, 
282,84,53,03,39,59,8d,6a, 
23,23,20,8d4,6b,23,ad,6c, 
83,18,69,21,84,60,23,2d, 
654,23,69,90,8d,6d,203,2d, 
54,03,18,69,01,84,54,23, 
ad,55,23,69,20,8d,55,03, 
3d,55,203,c9,00,d®,0a,ad, 
54,23,09,08,d0,03,4c,7c, 
87,40,85,86,39,58,8d,cc, 
890,20,13,89,8a,4c,89,3®, 
20,42,83,20,54,90,39,32, 
8d,6c,03,39,00,8d,6d,23, 
290,47,B8a,ad,5b,03,c09,08, 
d®,2a,ad,53,23,09,00,d2, 
03,4c,af,87,20,49,8d,ad, 
63,03,18,69,01,8d,6a3,23, 
ad,6b,03,69,00,8d,6b,23, 
ad,52,03,18,69,01,8d,52, 
03,ad,53,23,69,20,8d,53, 
03,2d,53,23,c9,01,d®,®a, 
ad,52,03,c9,40,d0,23,"c, 
e5,87,4c,98,87,39,00,8d, 
63,03,a9,00,8d4,6b,23,a89, 
00,8d4,52,03,a9,00,8d,53, 
03,ad,54,23,18,69,02,8d, 
54,03,ad,55,03,69,00,8d, 
55,83,ad,6c,23,18,69,01, 
8d,6c0,23,ad,6d4,03,69,28, 
8d,6d4,03,ad,55,03,c39,0282, 
d®,20a,ad,54,03,c9,c8,d®, 
03,4c,2f,88,40,98,87,88, 
59,8d,cc,89,20,1a,80,ea, 
40,89,90,29,42,89,20,5d, 
99,a9,32,8d,6c,03,39,20, 
8d,6d,03,89,59,8d,68,23, 
a9,00,8d,6b,03,20,47,Ba, 
ad,5b,23,c9,29,d0,0a,ad, 
5a,03,c9,20,d0,03,4c,6cC, 
88,20,49,8d,ad,52,23,18, 
69,22,8d,52,23,ad,53,23, 
69,00,84,53,03,ad,6a,23, 
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58589 
8888 
8839 
88398 
88a 
8838 
BBb2 
88b8 
88c8 
88c8 
88d2 
88d8 
8Bed 
8888 
BBFO 
8BfB 
8902 
8998 
8519 
8918 
8320 
8928 
8938 
8938 
8340 
8548 
83598 
8958 
8368 
8368 
8379 


8378 _ 


8389 
89B8 
8339 
8398 
8938 
8928 
89b8 
83b8 
89c8 
83c8 
8342 
8948 
B3ed 
85e8 
BSF® 
83f8 
Bao 
Bad8B 
Bald 
Bald 
Ba2® 
Ba28 
Ba3® 
8a38 
Ba4td 
8a48 
Ba50 
8358 
Ba60 
8368 
8a70 
Ba7B 
8aB8 
Ba88B 
BaS2 
83398 
Baad 
Baaß 
Bab® 
8Sab8 
Bacd 
8SacB 


2738 
2749 
2750 
2768 
2779 
2788 
2738 
2808 
2819 
2820 
2830 
2842 
2850 
28608 
2870 
2889 
28308 
2900 
2312 
2928 
2338 
2540 
2958 
2968 
2378 
2982 
2998 
39009 
3810 
39208 
3038 
3940 
3058 
39569 
3079 
3982 
39038 
31928 
3118 
3122 
3138 
3149 
3159 
3168 
3178 
3188 
3198 
3208 
3219 
3228 
3230 
32498 
3250 
3268 
3278 
3288 
3230 
3308 
3318 
3320 
3338 
3349 
3358 
3369 
3378 
3388 
3399 
3499 
3412 
34208 
3430 
3440 
3458 
3460 
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data 
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data 
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data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 


18,69,21,8d3,6a 
03,69,22,8d,65 
23,c3,21,d8,82 
c9,49,d8,23,4c 88,4c, 
55,88,a3,50,8d, ‚@3,aS, 
00,8d4,6b,23,23,08,84,52, 
03,89,00,84,53,23,ad,5c, 
03,18,69,01,8d,60,83,ad, 
64,03,69,200,84,64,23,2d, 
54,03,18,69,22,8d4,54,®83, 
ad,55,023,69,00,84,55,23, 
ad,55,03,c9,00,d0,da,ad, 
54,83,c9,c8,d2,23,4c,ec, 
88,40,55,88,a9,2d,8d,cc, 
80,290,1a,80,ea,4c,89,90, 
89,0d,a0,93,20,1l1e,ab,ea, 
a9,0d4,20,d2,ff,ea,20,40, 
80,8a,4c,86,90,20,3c,88, 
sa,a93,00,84,c06,00,a9,20, 
8d,6f,03,ad,c6,00,8d,6e, 
03,ad,6Ff,03,c9,00,d0,B2a, 
ad,6e8,03,c9,20,d9,23,40, 
16,89,a9,020,8d,6f,03,ad, 
77,02,84,68e,03,20,38,82, 
ea,59,a9,2b,Bd,11,d2,aS, 
00,8d,40,03,89,20,8d,"4d, 
03,a9,20,8d4,50,03,a9,40, 
8d,51,23,ad,4c,03,85,Ffe, 
ad,4d,03,85,ff,30,20,8c, 
5b,23,b1,fe,Bd,53,023,ae,. 
50,03,2d,51,03,56,Fe,B5, 
fF,a8,08,2d,53,03,91,fe, 
ad,4c,23,18,69,01,8d,4c, 
03,ad,4d,23,69,00,8d,"4d, 
03,3d,50,23,18,69,21,8d, 
590,03,ad,51,23,693,00,8d, 
51,03,ad,4d,83,c9,4®,fF®, 
04,b8,2c,990,07,ad,4c,83, 
c9,00,b80,83,40,5b,89,a9, 
02,8d,4c,23,29,20,8d,"4d, 
03,30,00,ad,4c,03,a8,“4d, 
03,85, fe,86,Ff,89,00,31, 
fe,ad,4c,23,18,69,21,8d, 
4c,03,ad,4d,03,69,20,8d, 
4d,083,ad,4d,03,c9,40,F®, 
04,b0,0c,398,07,ad,4c,03, 
c9,08,6b2,03,4c,c1,89,88, 
02,8d,4c,23,89,04,8d,4d, 
03,a0,00,ad,4c,83,ae,“d, 
03,85, fe,86,ff,a9,6f,S1, 
fe,ad,4c,83,18,69,01,8d, 
40,83,ad,4d,83,69,00,8d, 
4d,03,ad,4d,03,c9,07,F®, 
04,b8,0c,99,07,ad,4c,23, 
c9,28,b0,03,4c,21,8a,aS, 
18,8d,18,d0,89,3b,8d, 11, 
d®,a9,2c,8d,20,d0,50,a2, 
10,a9,00,8d4,£8,03,8d,Ff$, 
03,ad,54,03,8d,f4,03,ad, 
5s5,03,8d,f5,23,89,08,8d, 
f6,03,a9,00,84,£7,03,®e;, 
£f4,03,28,f5,03,28,F8,03,' 
Be,f9,03,ad,fS,23,cd,F7, 
03,98,1e,d2,08,ad,f8,03, 
cd,f6,03,30,14,38,ad, FB, 
03,ed,f6,03,8d,f8,03,ad, 
£f9,03,ed,f7,203,8d4,£9,03, 
38,28e,68,03,28,69,23,ca, 
d®,c5,32,10,a9,00,8d,fB, 
03,84,F9,03,ad,52,23,8d, 
£4,03,2d,53,03,8d,f5,03, 
393,08,8d,f6,03,89,00,8d, 
£7,03,08,f4,03,28,f5,03, 
2e,f8,23,2e,Ff9,03,ad,f93, 


‚ad,6Eb, 
‚ad,53, 
‚52,03, 


83 
83 
ad 
a2 
Sa 
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3830 
3840 
3850 
3860 
3870 
3880 
3830 
3900 
3918 
3920 
3330 
3340 
3950 
3360 
3970 
3988 
3990 
4000 
4910 
4020 
4030 
4040 
4050 
) 4060 
1%, 4978 
| 4080 
4038 
4100 
N 4118 
ä 4120 
4138 
4149 
4150 
4160 
4170 
4180 
4190 
4200 


‚23,350,1e,d®,08, 
‚cd,f8,03,30,14, 
‚083,ed,f6,23,8d, 
‚F9,83,ed,F7,03, 
‚38,22,66,03,2e, 
‚d@8,c5,a2,08,a83, 

a,03,8d,£b,03,a3, 

8,03,2d,68,23,8d, 


£b,03,6d,£f6,03,8d,fb,23, 
de,f5,03,2e,f6,03,ca,d®, 
df,ad,fa,03,8d,4a,03,ad, 
fb,23,8d,4b,803,ad,4a,23, 
18,64,66,03,8d,4a,03,ad, 
4b,03,6d,67,03,8d,4b,03, 
a2,08,a9,00,8d,fa,23,8d, 
fb,03,a3,08,8d,f0,03,ad, 
4a,03,8d,f5,03,ad,4b,03, 
8d,f6,23,4e,f0,03,90,13, 
18,ad,fa,03,6d,F5,03,8d, 
fa,03,ad,fb,03,6d,f6,03, 
Bd,fb,23,0e,f5,03,2e,f6, 
03,ca,dd,df,ad,fa,03,8d, 
4a,03,ad,£fb,23,8d4,4b,03, 
ad,4a,03,18,69,00,Bd,4a, 
03,ad4,4b,03,69,40,8d,4b, 
03,32,08,a9,00,8d,fa,03, 
8d,fb,03,a9,08,8d,f9,03, 
ad,58,03,8d,f5,03,ad,69, 
03,8d4,f6,03,4e,f0,03,30, 
13,18,ad,fa,03,6d,£f5,03, 
Bd,Ffa,03,ad,fb,03,6d,f6, 
03,8d,fb,23,0e,f5,03,2e, 
£f6,03,ca,d®,df,ad,fa,03, 
8d,48,03,ad,fb,03,8d,49, 
03,8d,54,03,38,ed,48,03, 
8d,48,03,ad,55,03,ed,3, 
03,8d4,49,03,ad,4a,23,18, 
6d,48,03,8d,5a,03,ad,4b, 
03,64,49,03,8d,5b,23,a2, 
10,39,00,8d,£8,03,8d,f9, 
03,ad,52,03,8d,f4,03,ad, 
53,03,8d,f5,03,a9,08,8d, 
f6,03,89,00,8d,£7,03,0e, 
£f4,03,2e,f5,03,28,f8,03, 
28,f93,03,ad,£9,03,cd,Ff7, 
03,98,1e,d0,08,ad,f8,03, 
ced,f6,23,990,14,38,ad,f8, 
03,ed,f6,03,8d,f8,03,ad, 
£f9,203,ed,F7,03,84,F9,03, 
38,28,60,03,28,61,23,ca, 
d®,c5,a2,08,a9,00,Bd,fa, 
03,8d,fb,03,a9,08,8d,F2, 
23,ad,69,03,84,£5,03,ad, 
61,23,8d,f6,03,4e,f0,03, 
90,13,18,ad,fa,03,6d,£5, 
03,8d,Ffa,03,ad,fb,23,6d, 
£f6,23,8d,fb,03,0e,f5,03, 
De,f6,23,ca,dd,df,ad,fa, 
03,84,60,03,ad,fb,03,8d, 
61,03,ad,52,03,38,ed,60, 
03,84,60,03,ad,53,03,ed, 
61,23,8d4,61,03,2d,60,03, 
18,69,bd,8d,50,03,ad,61, 
03,69,80,8d,5d,83,ad,Sc, 
03,85, fe,ad,5d,83,85, ff, 
30,20,8c,5d,203,b1,fe,8d, 
Sc,03,2d,53,03,85,Ffe,ad, 
5b,03,85,ff,a0,00,8c,5b, 
83,b1,fe,8d,5a,83,ad,5a, 
03,04,5c,03,8d,5e,23,ad, 
5b,23,2d,5d,03,84,5F,83, 
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ad,5b,23,cd,5f,03,d®,®b, 
ad,5a,23,cd,58,03,d8,23, 
“-,38,8d,39,00,84,5a8,23, 
a5,002,84,5b,03,60,39,01, 
543,53,23,39,00,8d,5b,23, 
58,22,10,39,00,8d,f8,03, 
8d4,£9,03,ad,60,03,8d,Ff4, 
23,2d,6d,23,8d4,f5,03,a9, 
05,84,F6,03,a9,00,8d,f7, 
283,0=2,f4,03,2e,f5,03,2e, 
f8,23,2e,Ff9,03,ad,f9,03, 
cd4,°7,03,30,1e,d®,08,ad, 
f8,23,cd,£f6,03,30,14,38, 
ad,f8,03,ed,f6,03,8d,f8, 
03,2d4,F3,03,ed,f7,03,8d, 
F3,83,38,2e,68,03,28,69, 
23,c3,d0,c5,32,10,a9,00, 
Bd,F8,83,84,f9,03,ad,6a, 
23,84,F4,03,2d,6b,23,8d, 
F5,83,89,08,8d4,f6,03,a9, 
09,84,£f7,03,08,f4,903,2e, 
83,2e8,f8,03,28,f9,03, 
£3,83,cd,F7,03,90,1e, 
28,2ad,f8,83,cd,f6,03, 
14,38,ad,f8,03,ed,f6, 
8d,F8,03,ad,f9,03,ed, 
‚8d,F93,03,38,2e,66, 
‚87,823,ca,d9,c5,a2, 
‚a3,00,8d,fa,03,8d,fb, 
‚a3,28,8d,f0,03,ad,68B, 
03,54,£5,83,ad,69,03,8d, 
F6,83,4e,F0,03,990,13,18, 
ad,Fa,83,6d,£f5,03,8d,Fa, 
03,ad,£b,03,6d,£6,03,8d, 
fb,83,8e,Ff5,03,28,f6,03, 
ca,de,df,ad,fa,03,Bd,"a, 
03,ad,Fb,23,8d,4b,03,ad, 
4Ya,83,18,64,66,03,Bd,Ha, 
03,ad,45,23,6d,67,03,68d, 
4b,23,22,06,83,00,8d,fa, 
03,8d4,£b6,03,29,08,8d,f®, 
03,ad,42,23,8d4,F5,03,ad, 
4b,03,84,f6,03,4e,f0,03, 
30,13,18,ad,Ffa,03,6d,F5, 
03,8d,fa,83,ad,fb,023,6d, 
£6,03,8d,Fb,83,0e,£f5,03, 
2e,f6,83,ca,d@,df,ad,fa, 
03,8d4,42,83,ad,fb,23,8d, 
4b,23,ad,42,03,18,69,00, 
Bd,4a,03,ad,4b,03,69,20, 
8d,4b,03,22,88,29,00,8d, 
fa,03,8d4,Fb,23,89,08,6d, 
£F0,23,ad,568,03,8d,F5,03, 
ad,69,03,8d4,f6,03,4e,f®, 
03,32,13,18,ad,fa,03,6d, 
£S,03,8d,fa,83,ad,fb,23, 
6d,f6,03,8d,fb,03,0e,f5, 
03,28,f6,93,ca,dd,df,ad, 
fa,23,84,48,03,ad,fb,03, 
8d4,49,03,ad,60,23,38,ed, 
48,03,8d4,48,03,ad,6d,023, 
ed,43,83,8d,49,03,ad,Ha, 
03,18,6d4,48,03,8d,58,03, 
ad,4b,03,6d,49,03,8d,5b, 
03,22,10,89,00,8d4,£8,03, 
8d,f9,23,ad,6a,23,8d,ft4, 
03,ad,6b,03,8d,f5,03,a3, 
08,8d,f6,03,89,00,8d,F7, 
03,08,f4,03,28,f5,03,2e, 
f8,03,28,£f9,03,ad,f9,03, 
cd,f7,203,90,1e,d®,28,ad, 
f8,03,cd,f6,83,98,14,38, 
ad,f8,203,ed,f6,03,8d, FB, 
03,ad,f9,03,ed,f7,03,8d, 
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Bf7D £f3,03,38,2=,50,03,22,51, 23 "5688 43,48,54,20,28,593,20,3d, 
B8F78 83,ca,d®,c5,22,08,29,20, 87 5639 20,53,45,4e,“b,52,45,43, 
BFBO Bd,Fa,23,8d4,fb,03,a9,08, a2 5708 48,54,11,11,55,82,20,20, 
BFBB 84,F2,283,24,60,03,8d,f5, e3 5710 20,20,20,22,20,31,20,3d, 
BFSO 03,2d,51,23,8d,f6,03,4e, ®1 5728 20,20,20,20,47,52,#1,46, 
BFSB f0,23,58,13,18,ad,fa,083, cb 5738 49,4b,20,40,41,44,45 48, 
BFfad 6d,F5,23,8d,fa,03,ad,fb, 97 5740 00,20,20,20,20,20,20,2@, 
8faB 03,54,75,03,8d,fb,03,08e, 19 5759 32,20,3d,20,47,52,41,=5, 
BEbO F5,03,28,f6,03,ca,de,df, 54 5768 49,4b,20,45,49,4=,20,28, 
8FbB ad,fa,03,84,60,03,ad,fb, 38 5779 52,3d,52,45,56,45,52,53, 
Bfc® 03,34,51,03,ad,62,23,38, e2 5780 23,00,20,20,20,20,20,20, 
BfcB ed,58,03,84,60,03,ad,6b, al 5730 20,33,20,3d,20,47,52,41, 
BfdO 03,24,561,03,8d,61,03,ad, £7 5500 46,49,4b,20,556,45,52,47, 
BFdB 52,03,18,69,bd,8d,50,03, 85 5810 52,4f ,45,53,53,45,52,4e, 
Bfe® ad,51,03,69,80,8d,5d,03, 33 5828 20,28,58,29,00,20,20,20, 
BfeB ad,5c,03,85,Ffe,ad,5d,03,' 7a 5839 20,20,20,20,34,20,3d,20, 
BEFO 85,Ff,a0,00,80,5d,03,b1, a7 5840 47,52,41,46,49,4b, 20,56, 
BEFB fe,84,50,03,ad,5a,03,85, Sa 5850 45, 52,47,52,4f,45,53,53, 
3000 fe,ad,5b,03,85,ff,a0,08, cf 5860 45,52,4e,20,28,59,29,00, 
99028 80,5Ff,03,b1,fe,8d,58,03, “4b 5870 20,20,20,20,20,20,20,35, 
s912 ad,5e,03,2d,5c,03,8d,5e, cc | 5888 '20,3d,20,47,52,41,46,49, 
9918 03,ad,5Ff,83,2d,5d,03,8d, d3 5832 4b,20,56,45,52,47,58,4f, 
seze 5f,03,ae,5a,23,2d,5b,23, 5e 5320 45,53,53,45,52,4e,20,28, 
se28 865,fe,85,ff,a0,00,ad,5e, fd | 5910 58,26,59,29,00,20,20,20, 
s232 03,91,fe,60,a9,00,8d,5a, db 5320 20,20,20,20,36,20,3d,20, 
9035 03,29,00,84,6b,03,39,08, df 5930 47,52,41,46,49,4b, 20,56, 
92498 8d,6c,03,39,00,8d,6d4,83, 53 5949 45,52,4b,40,45,49, 48,45, 
9048 a9,00,84,30,03,89,00,8d, c7 5350 52,4e,20,20,28,58,29,00, 
s25® 3d,83,29,00,8d,3e,203,a39, 8b 5960 20,20,20,20,20,20,20,37, 
9058 00,84,3F,03,60,89,00,8d, da 59790 20,3d,20,47,52,41,46,49, 

. 9058 68,03,29,00,8d,6b,03,a9, 8b 5988 4b,20,56,45,52,4b,4c,45, 
sos8 00,84,60,03,a9,00,8d,56d, at 5990 49,4e,45,52,4e,20,20,28, 
3078 03,a9,00,84,52,03,89,08, c6 6000 59,29,00,20,20,20,20,20, 
9078 84,53,03,39,20,84,54,83, S3 6019 20,20,38,20,3d,20,47,52, 
92980 a9,00,84,55,03,60,20,0d, 37 6029 41,46,49,4b,20,56,45,52, 
go88 893,39,0b,8d,11,d0,89,17, 32 6030 4b,4c,45,49,4e,45,52,4e, 
s032 84,18,d0,4c,cd,80,60,1f, 86 6042 20,20,28,58,2b,59,29,00, 
soS8 93,00,12,1d,1d,i1d,1d,1d, 88 6950 20,20,20,20,20,20,20,39, 
EIENS b2,c0,c0,c0,c0,c0,c®,c®, F® 6060 20,3d,20,20,20,20,20,44, 
9028 c8,c0,c0,c0,c8,c0,c®,c®, 88 60970 49,52,45,43,54,4f,52,59, 
90b® c9,c0,c0,c0,c0,c0,c0,c®, 88 6080 00,39,11,11,20,20,20,20, 
9068 c8,c8,c0,c00,c0,c0,ae,20, ae 6030 46,49,40,45,4e,41,4d,45, 
39c0 12,1d,1d,i1d,1d,1d,dd,28, b2 6108 20,3F,20,1F,90,93,1c,00, 
90c8 ) a 20,20,20,20,20,20,20,20, 28 6110 FF,FF,20,00,00,00,20,00, 
9040 20,20,20,20,20,20,20,20, 00 
9948 20,20,20,20,20,20,20,20, 98 
90e8 20,20,20,20,dd,00,12,1d, d2 
9928 1d,1d,1d,1d,dd,28,28,20, bd 60000 For a-32768 to 37648 step H184 
SaF® 4d,20,49,20,4b,20,52,20, b3 B:5=-®:c=d:Ffor b=® to 7: 
sor8 4F,20,20,2d,20,20,4d,20, 4f gosub 60849 
9190 41,20,4b,29,52,20,4F,20, ad 690019 s=-s+h+l-c:o=s>255:s5=-255-s 5034 
3108 20,20,dd,28,12,1d,1d,1d, d2 and 255:poke a+b,h+l:next 
5118 1d,1d,dd,20,20,20,a3,a3, bc b:gosub 69049 
3118 a3,a3,a3,a3,83,a3,a3,a3, 88 60020 F$S=-"prusfsumme ok”:if sc> 5699 
3128 a3,83,a3,a3,a3,a3,a3,a3, 0208 h+l then F$="[rvs] 
sı28 :a a3,83,a3,a3,83,20,20,20, 83 pruefsummenfehler”:f=f+1 
9132 dd,@22,12,1d,1d,1d,1d,1d, d2 560039 gosub 60090: : » 

3138 dd,20,20,20,28,43,23,20, ab gaaub: BODER ENBSE RL PEBBERIBEIGER? 
3140 31,39,38,36,20,52,45,43, c4 560040 read h$:gosub 69059: h=1* 2715 
9148 Ye,45,52,20,4B,4f,42,42, 34 16:h$=midS$ Ch$,2) 

3159 4f ,40,44,20,20,20,dd,20, 83 60052 l=asc Ch$+"x”)-4B:if 1<0 3198 
3158 12,1d, 1d,1d,1d, 1d,dd,28, b2 or 1>22 then 69288 

3160 20,20,20,20,20,20,20,20, 28 60060 if 1<1® then return “ 1044 
3168 20,20,20,20,20,22,20,28, 88 60078 1=1-7:if 1>3 then return 1334 
3170 20,20,20,20,20,20,20,20, 28 560088 FS="[rvsleingabefehler”:1=- 2460 
9178 20,20,20,20,dd,02,12,1d, d2 B:£=-F+1 

3180 1d,1d,1d,1d,ad,c8,c8,c®, ed 60038 print ”"zeile” peek (64)* "2726 
‘93188 c2,c8,c8,c0,c8,c2,c0,c0, 88 256+peek (63)F$:return 

5198 c0,c2,c0,c0,c0,c0,c0,c0d, 88 

9198 c8,c80,c0,c80,c0,c0,c®,cd, 88 

S1ad 'c8,02,bd,80,1c,11,11,28, b3 

91a8 20,20,20,20,20,58,29,3d, ac 

91b® 20,57,41,41,47,45,52,45, d8 
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: Juni/87 &XUW 125 
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um 0 mm Praxis Listing 


Komplizierte 
Befehle leicht gemacht 


System: C128/Floppy 
Typ: Ukility 
Sprache: Basic/Asm 


as Programm „Disk-Helfer" er- 
möglicht es dem Programmierer, 
komplizierte Diskoperationen 
durchzuführen. Das Programm hat 
11 Menüpunkte, die zum Teil noch 
weiter aufgegliedert sind. Die 
Auswahl der einzelnen Funktio- 
nen erfolgt mit den Cursor-Tasten, 
bestätigt wird mit RETURN. Fol- 
gende Funktionen stehen zur Ver- 
fügung: 
— Directory anzeigen 
— Write-Protekt Disk 
Eine Diskette mit dem Schreib- 
schutz kann nicht mehr beschrie- 
ben werden, die einzelnen Files 
sind gegen einen Scratch-Befehl 
geschützt. 
— un-wp Disk 
Der Schreibschutz wird wieder 
aufgehoben. 
— Boot-Sektor 
Hier wird ein Boot-Sektor auf die 
Diskette geschrieben, der es er- 
möglicht, daß sofort nach dem Ein- 
schalten des Computers ein Pro- 
gramm automatisch geladen wird. 
Zusätzlich kann ein Text angege- 
ben werden, der während des 
Bootens ausgegeben wird. 
— Lade Hilfe 
Es wird wahlweise ein Doppel- 
punkt, „‚8:" oder „8,1“ an den 
Filenamen angehängt. Setzt man 
einen Doppelpunkt hinter ein File, 


disk - helfer 


written by: 


ne! wolfgang buerger 


”1 godenwind 1, 2888 hamburg-74 


"| tel.:8490/7156938, 


»7 


126 QIUUD Juni/87 


(c) 1987 


„Disk-Helfer“ hilft al- 
len, die sich bei 
schwierigen Disk- 


manipulationen mit 
dem C128 überfordert 
fühlen. 


so kann das Programm mit „F2" 
geladen werden. 

— order Disk 

Diese Funktion ist in fünf Unter- 
punkte unterteilt, die mit den 
Funktionstasten angewählt wer- 
den: 

Fl — Disk formatieren 

F2 — Validate Disk 

F3 — Scratch File 

F4 — Rename File 

F5 — Un-Scratch File 

Dieser Punkt bietet die Möglich- 
keit, gelöschte Files zu retten, falls 
nach dem Löschen keine weiteren 
Programme mehr auf die Diskette 
gespeichert wurden. 

— File schützen 

Das betreffende Programm kann 
nicht mehr gelöscht beziehungs- 
weise umbenannt werden. 

— Directory audrucken 

— Diskname ändern 

— Geräte-Ädresse ändern 
Programmaufschlüsselung nach 
Zeilennummern: 


10-220 Einlesen der Varia- 
blen, Menü aufbauen 
230-480 Auswahl des Menü- 


punktes 


"x 


trap 20000 


510-540 Menüpunkt wird an- 
gesprungen 
1000-1050 Directory ausgeben 
2000-2150 Diskette schützen 
3000-3150 Schutz aufheben 
4000-4390 Boot-Sektor erstellen 
5000-5240 Lade-Hilfe anhängen 
6000-7150  Floppybefehle 
8000-8420 Files schützen und 
Schutz aufheben 
9000-9140 Direktory ausdruk- 
ken 
10000-10470 Diskettennamen / ID 
ändern 
11000-11070 Geräteadresse än- 
dern 


20000-20030 Fehlerbehandlung 
30000-30090 Untermenü aufbauen 
40000-40200 Texteingabe 
„Disk-Helfer" ist zweigeteilt. In 
Listing 1 ist das Hauptprogramm 
abgedruckt. Teil 2 (Listing 2) wird 
vom Hauptprogramm aufgerufen, 
Teil 2 ist als kombinierter Hex- 
dump-Basiclader abgedruckt. 
Wird das Programm als Basicla- 
der eingegeben, so muß der La- 
der vor dem Start abgespeichert 
werden. Nach RUN werden die 
Daten in den Speicher gepoket. 
Das fertige Maschinenprogramm 
wird mit 

POKE 43,0 :POKE44,14 

POKE 45,255:POKE46,15 
save"SPRITES",8 

auf Diskette abgespeichert. Wird 
es als Hexdump eingegeben, so 
muß der Checker benutzt wer- 
den. Als Startadresse ist 0e00 an- 
zugeben. (W. Bürger) mm 


color B,16:color 4,15: fast 
bload ”sprites” , p3584 
for i=-1 to B:sprite i,1,1,80,1,8:next 


i 
For i=T to 4 


movspr i,85+48*Ci-1),15@:movspr i+H4, 
75+48*Ci-1),175 


next i 


print chr$ (27)+”m” 


dim am$(12):dim Fe(3,4) 
ah$C1)="[shift-spacs,cbm d]J8[cbm d] 
1”:ahS(2)="[shift-spacs,cbm d]8B 


[shift @J”:ah$C3)="[shift-space, 


shift EJ” 


EN DONESCSHESTERWOR.D. COM 


zu: BERATER: Praxis Listing = TER: ZRRER 


118 n$=chr$ (8):z=1 

120 8ez$(9)="91234567BS":esS=-chr5 (27)+ 
chr$ (27) 

138 For i-32 to 127:e2S(1)=-ezS(1)+chr$ 
(i):next i 

148 for i=168 to 191:e25(1)-ezS(1)+chr$ 
(i):next i 

158 for i=1 to 48 

168 ba$-ba$+chrS (32):585-sS+chr5 (16%): 
s1$"s1$+chrS (153) 

178 next i 

188 for y=1 to 4:for x=1 to 3:felx,y)=z: 
z=z+l:next x,y 

190 am$(1)-"directoryl@spaces]":am$(2)- 
"w,p. disk[l2spaces)7":am$(3)="un-wp 
disk ” 

2008 am$(C4)-"boot sector”:am$(5)=-"load- 
help[l2spaces)":-a=S(5)-"order disk ” 

219 am$(7)=-"prot. File ":am$(B)- 
"unprot.File*"-a88(5)="print dir. ” 

B2® am$(10)-"change name”:am$(C11)- 
"»change unit" -a=S(12)="quit pgm 
C3spaces)” 

830 : 

248 window 8,8,39, 2%: scnclr 
1 

258 print "Irws,che 53"+ba$ 

868 print "Chblu)”ss 

278 for i-1 to 12 step 3 

288 print "Irws,bilu) "+am$Ci)+"[3spaces] 
"+amS(i+i)*+"T2spaces]"+tam$(l2+i)+” ” 


sxel:yei:xx= 


2308 
308 
318 
3208 
338 
3408 
350 : 
360 c! 2,xx,4*1,"Chblu]”+am$(fe(x,y))> 
378 char 1,2,8,"Ichm 5lIdisk: "+ds$,1 
380 slow :get key t$ 
398 if tS=chrS (13) then 512 
408 char 1,xx,9*1,"Cblu]”+am$(fe(cx,y))3,1 
4198 if tS=*"fdown)”" then yey+t1:if y=5 
then y=i 
428 if tS="£up)” then y=y-1:if y=® then 
ys 
438 if tS="L[left]” then x=x-1:if x=® 
then x=3 
449 if tS="fright)” then x"x+t1:if x=4 
then x=i1 
450 if x=1 then xx=1 
468 if x=2 then xx=15 
470 if x=3 then xx=28 
488 goto 358 
490 : 
sep : 
518 For i=1 to B:sprite i,®:next i 
522 print "[blu)” 
538 on Fe(x,y)> goto 1000,2000, 3000,4008, 
5922, 500202, 530020,8000, 9000, 188092, 11202 
548 print chrS (27)+"1”:end 
S5B : 
568 : 
1008 rem --- catalog --- 
1210 
1920 : 
1038 scnclr 
18428 directory 
1858 get key t$:goto 248 
1868 : 
19070 : 
2208 rem --- write protect disk --- 
2218 
2020 : 
2030 te$="disk schustzen”:gosub 390890 
20848 char 1,18,5,”[cbm YJare you sure ?” 
2050 get key t$ 
20608 if t$<>”y” and t$<>”j” then 242 
2078 open 1,8,15,”i” 


WW. .HOMBESOCHPUTERWOR.D.COM 


2888 
20528 
21808 
2118 
2128 
2130 
2149 
2158 


open 2,8,2,”#” 
print#1,”ul”;2;2;18;2 
print#1,”"b-p”;2;2 
print#2,chr$ (66); 
print#1, "u2”;2;0;18;8 
print#1,”i” 

dcelose 

goto 2408 


21608 : 
2170 : 


38208 
3818 


rem --- un-write protect disk --- 


39020 : 


3830 
3040 
3850 
3868 
3878 
3088 
3838 


31908 
3118 
31228 
3130 
3140 
3158 


teS=-"disk normal.":gosub 30900 

char 1,18,5,”Ccbm “HJare you sure ?" 
get key t$ 

if t$<>”y” and t$<>"j” then 2408 
open 1,8,15,”i” 

open 2,8,2,”#” 

print#1,”m-w”+chr$ (C1)+chr$ C1)+chr$ 
(1)+chr$ (65) 

print#1, ”"ul”;2;8;18;8 

print#1, ”"b-p";2;2 

print#2,chr$ (65); 
print#1,”"u2”;2;0;18;88 

dcelose 

goto 240 


3160 : 
3170 : 


4000 
4010 


rem --- boot sector --- 


4920 : 


40308 
4o4o 
4050 
4050 
4078 
4080 
4930 
4190 
411® 
4120 
4130 
4140 
4150 
4168 
4170 
4180 


4198 
42008 
4218 
4220 
4230 
4240 
4258 
4268 
4270 
4280 
4238 
439028 
4319 


43208 


tes=-"boot sector”:gosub 30080 
color 5,7:bsS="" 

open 1,8,15,”i” 

open 2,8,2,”#” 

print#1, "ul”;2;8;1;8 

For i-1 to 3 

get #2,a$ 

bs$-=-bs$+a$ 

next i 

rem : dcelose 

if bs$="cbm” then begin 

:char 1,6,4,"boot-sector exists I" 
:char 1,8,6,”<stop?> to abort”,1 
:get key t$:goto 4249 

bend 

if bs$<>”"k”+chr$ C1)+chr$ (1) and 
bs$<>”” then begin 

:char 1,11,4, "attention !”:stop 
:char 1,8,6,"”sector is used |!" 
:char 1,8,8,”<stop> to abort”,1 
:get key t$ 

bend 

te$="boot sector”:gasub 39088 
char 1,1,4,”file-name:” 
x=-13:y-4:8z=1:1=-16:gosub 49000: F$-15 
char 1,1,7,”"text on screen: ” 
x="2:y=B:ez=1:1=-29:gosub 40008: tes-1$s 
l=len (te$)+15 

char 1,6,18, "writing boot-sector” 
tS=-chr$ (162)+chr$ Cl)+chr38 (169)+ 
chr$ (11)+chr$ (76)+chrS (165)9+chrS$ 
(175)+”"run”+chr8 (34) +fFS$+nS 
bt$="cbm"+n$+nS+nS+nS+tteS+nS+tnSs+tSs 


4330 : 


4348 
4350 
43560 
4370 
4388 
4398 
4498 
5928 
5212 


print#1,”b-p";2;08 
print#2,bt$ 
print#1,”u2”;2;0;1;® 
print#1,”i” 

dcelose 

goto 240 


rem --- appendix --- 


5020 : 


s838 
5049 
5058 
50858 


te$=-"ladehilfe”:gosub 398098 
char 1,5,4,”1) appendix : 
char 1,5,6,”2) appendix : 
char 1,5,8,”3) appendix : 
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63208 
6338 
6340 
6359 
6369 
6379 
6380 


6339 
6499 
6410 
6428 
6430 
6440 
6459 
6459 
64798 
64898 
6490 
6508 
6518 


get key ts 
t=val (tS)-om € goto 5119,5149,5178 
goto 5878 


tes-"anhaengsel: ’,B,1’”":gosub 39908 
la-11:g0to 5288 


tes-"annsengsel: ’,B: '’”;:gosub 390098 
la=-12-00t0 52908 


teS="anhaengsel: ’:’":gosub 30008 


cher 1,11,5,”"enter file :” 
==3:9-7:82=1:1=16:gosub 49008: F$=1$ 
iS=-leftS (15, 1la)+ah$clt) 

rename (f$) to (15) 


te$=-"diskbefehl”:gosub 30000 

char 1,8,2,”1) header disk” 

char 1,8,4,”2) validate” 

char 1,8,6,”3) scratch file” 

char 1,8,8,”4) rename file "” 

char 1,8,18,”5) un-scratch[2spaces)” 
get key t$ 

t=val (t$):on t goto 6130, 6480,6510, 
6570, 6659 

goto 6098 


te$="disk formatieren”:gosub 39000 

char 1,1,3,”hsader disk with new id 
? Cy/n)” 

get key t$ 

if t$="y" or t$="j” then char 1,28, 

3,”’yes”:else char 1,28,3,"no!” 

char 1,1,5,”664 or 1328 blocks:” 

x-B2:yrS:ez-d:l=-4:gosub 40000: moS-1$ 
if mo$<>"664” and mo$<>”1328” then 

6138 

char 1,1,7, "disk-name: ” 

x=13:y=-7:ez=1:1=16:gosub 40008: dns- 
1$ ; 

if t%="y" or t$="j" then begin 
:char 1,1,9, "disk-id:” 
:x=13:y=9:ez=1:1=2:gosub 490008: ids= 


if mo$=”1328” then begin 

:if t5="y” or t$="j" then begin 
:open 1,8,15, ”n: "+dn$+”, "+id$:close 
1 


:bend 

:if t$="n” then begin 
:header (dns) 

:bend 

bend 


if mo$="664” then begin 

:open 1,8,15:print#1, ”"u®>m®”:close 1 
:if t$="y” or t$="j” then begin 
:open 1,8,15, ”n: "+dn$+”, "+id$:close 
1 


:bend 

:if t$="n"” then begin 

:header (dn$) 

:bend 

:open 1,8,15:print#1, "u®>mi1”:close 1 
bend 


goto 240 


collect 
goto 2408 


ts$="file losschen”:gosub 3990898 
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6528 
6538 
6549 
6559 


6560 : 


6578 
6588 
65998 
66098 
6618 
6629 
6638 


char 1,6,5,”"enter file to scratch:” 
x=B:y=-7:ez=1:1=-15:gosub 40000: Fc$=1$ 
scratch (fc$) 

goto 248 


te$="file umbenennen”:gosub 30208 
char 1,6,3,”enter file to rename:” 
x=8:y*-5:ez=1:1=16:gosub 490000: rf$=1$ 
char 1,9,7,”"enter new name: ” 
x=-B:y=-9:ez=1:1=-16:gosub 490900:nf$=1$ 
rename (rf$) to (nf$) 

goto 248 


6640 : 


6659 
6668 


6670 
6689 
66398 


6708 
6718 
6728 
6738 
6749 
6750 
6768 
67708 
67808 
6730 
68998 
6810 
6820 
6830 
6840 
6858 
6869 
68798 
6889 
6839 
6998 
6319 
69298 
6939 


6949 
6959 


639608 
6378 
65808 
6930 
7000 


7218 
7920 


7938 
7940 


te$="re-scratch”:gosub 38990 

char 1,2,3,”"to unscratch a file is 
only” 

char 1,2,5, "possible if another file 
was” 

char 1,2,7,”not saved after 
scratched,.” 

char 1,18,9,”Cred]press any keylblu] 
» ı 
» 

get key t$:f=2 

open 1,8,15 

open 2,8,2,”#” 

t=18:5=1 


print#1,"ul”;2;0;t;s 


z=d 

do until z=8 

:print#1, "b-p”;2;2+z*32 

:get #2,a$:a=asc (aS) 

:if a<>8 then 70998 

:get #2,a$,a5 

:For tt=1 to 16 

:get #2,a5: fi$=-fFis+as 

next tt 

:tt=-instr (fi$,chrS (168))-1 

:if tt=-1 then 6898 

:fi$=-left$ (Fis,tt) 

:if fi$=""” then 7098 
:te$="re-scratch”:gosub 30098 

:char 1,(33-len (fis))/2,4,Fi$,1 
:char 1,10,7,”"rescue File ?”:fig“"” 
:get kay t$:if tS<>"y” and tS<>" jr 
then 7069 

:char 1,1,9,”please, enter file-typ: 


:x=26:y=-9:ez=1:1=3:gosub 49000: fts- 
18 

:if fFt$="pgm” then f=139:goto 70208 
:if Ft$="seq” then fF=12B:goto 70208 
:if ft$="rel” then f=132:goto 7029 
:if Ft$="usr” then f=131:goto 7029 
:char 1,1,9, "[red,4spacesJincorrect 
responsible ![4spaces]”,1:get key 
ts 

:char 1,1,9, ”Cblu,31spaces]”:goto 
6949 

:print#1,”b-p”;2;2+z*32 
:print#2,chr$ (FE); 

:print#1, "u2”;2;0;t;s 


7950 : 


7969 
7978 
70828 


7938 
7188 
711® 
7ı28 
«7130 
7149 
7158 
7168 


:te$="re-scratch”:gosub 39990 
:char 1,12,5,”continue ?” 

:get key t$:if t$<>”y” and t3<>” jr 
then 71498 

ız=z+1 

loop 

print#1,”b-p”;2;08 

get #2,t5,s8e$:t=asc (t$):s=-asc (se$) 
if t<>® and s<>255 then 6759 
dcelose :if F then collect 

goto 248 


7170 : 


=17]4)7) 
8918 


rem --- (un-Iprotect file -—- 


8020 : 


3544 
3166 
476 
574 


2897 
3293 
3074 
2606 
3067 
1047 

574 


1801 
3511 


3584 
3354 
2808 


1077 

935 
1023 
1167 


1820 


383 
869 
1697 
1166 
1018 
B12 
632 
1563 
306 
1768 
1294 
970 
1158 
1875 
2622 
2508 
3033 


e446 
2860 


1905 
19208 
1904 
2058 
4177 


2399 


1597 
885 
1977 


1875 
2166 
3090 


858 
236 
1205 
3902 
2716 
1204 
574 


8030 
8040 


8950 


8060 
8070 
80898 
8098 
8100 
8110 
8120 
8139 
8140 
8159 
81698 
8178 
81808 
8198 
82008 
8210 
B2208 


8238 


8248 
8258 
8268 
8278 
8288 
8238 
8388 
8318 


B328 
8338 
8348 
8358 
8368 
8378 


8388 
8398 
84908 
8418 
84208 
84308 


39908 
9918 
3028 
9038 
9940 


9958 
9069 
9070 
9082 
9838 


9190 


9118 


9120 


9130 

9140 

9159 
10000 
180198 
100208 
10038 
190848 
100858 
100608 
190070 
128888 
18839 


B44B : 


wb=-fe(x,y)> 

if wb=7 then te$S=-"file schustzen”: 

else te$=-"file freigeben” 

gosub 30888:if ub=8 then t$="enter 
file to unprotect:":sise t$="snter 
file to protect:” 

t=1B:5=1:2=9@:x1=-5 

char 1,5,4,t5 

x-B:y"-S:ez=-1:1-156:gosub 490000: pf$-15 

if pfs="" then 2408:else fast 


open 1,8,15 
open 2,8,2,”#” 


print#1, "ul";2;0;t;s 

print#1, "b-p";2;0 

ta=t:sa=s 

get #2,t5,se$:t-asc (t$):s=-asc (se$) 


do until z=B 

:£S-"" 

:print#1,”"b-p"”;2;x1 

:get #2,85:f$-f$+a$:if a$<>”” then 


8228 
:a=instr (f$,chr$ (160)):if a=® then 
8258 


:FS=left$ (f$,a-1) 
:iE FS=-pf$ then 83498 
:xi=x1+32:z=z+1 

loop 


ir t<>8 then z=B:x1-5:goto 21=2 
dcelose 
slow :char 1,1,1@, "[red Sspaces]file 


not found[8spaces,blu3”,1 
get key tS:fast :goto 243 


4 a Bu | 

print#1,”b-p";2;x1 

gest #2,3$:a-asc (aS) 

if wb=7 then a=-a or Eü4:else a=not e: 
a=-a or 6Ü4:a=not a 

print#1, ”b-p”;2;x1 

print#2,chrS (Ca); 


print#1, "u2”;2;8;ta;sa 

dclose 

gato 248 

rem --- print dirsctory --- 

Dam Su ran 
tes=-"direotory drucken":gosub 39008 


char 1,4,5,”press any key for 
printing”:get key t$ 

open 4,4:fast 

open 1,8,15 

open 2,8,0,”$” 

get #2,35,a$ 

get #2,a8,a8:if st=64 then dcelose : 
close “4:goto 240 

get #2,a$,b$:bb-asc (a$)+256*asc 
Cb8) 

get #2,a5:dd$=dd$+a$:if aS<>"”” then 
9118 

bb$-str$ (bb)J:bb$-right$S (Cbb$, len 
Cbb8)-1) 

dd$=bbS+” "+dds 
print#4,dd$:dd$="":goto 30398 


rem --- change disk-id/name --- 
De ee nn a a na a ae 
te$="id/name aendern”":gosub 390022 


dn$= nn P dis- » 

open 1,8,15 

open 2,8,2,”#” 
print#1,”ul”;2;0;18;® 
print#1, ”b-p”;2;144 
For@i=17 to 716 


2714 
3931 


1059 
935 
1217) 
887 

3042 


8577 
2782 
e475 


1231 
1914 


2438 
1193 

335 
1023 
1692 
1414 

867 
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198198 
12118 
19128 


120138 
190140 
10159 
18168 
10170 
10189 
10198 
102008 
10210 


10220 


18058 : 
18258 : 
18388 : 
18318 : 
128328 : 
18338 : 


18342 
198358 
103598 
18378 
103828 


18398 


12400 


18419 
124208 
10438 
19448 
198450 
10450 
18472 


190480 : 


12458 
119008 
119218 
11920 
11030 
11942 
11058 


11060 
11078 
11080 


:get #2,3$:dn$=dn$+a$ 

next i 

l=-instr (dn$,chr$& (1608)):if 1-8 then 
19140 

dn$=left$ (dn$,1-1) 

print#1, "b-p”;2;162 


For 3-17 0:5 

:get #2,a8:di$=diS+as 

next i 

char 1,2,4,”"disk-name: "+dn$ 

char 1,2,6, "disk-id[2spaces]: "”+diS 
char 1,10,9,"CrvsInlCofflame or [rvs] 


iloffJd ?” 

get key t$ 

if t$="n” then begin 

:te$5="diskname aendern”:gosub 39900 
:char 1,9,5,”enter new name: ” 

Be a 222.27 16:gnaub 492808: dns” 
s 

get key t$ 

ie tS="n" then begin 
:teS="diskname aendern”:gosub 30808 
:char 1,9,5,"enter new name: ” 

en Bd ee an 4980222: dns= 


:if len (dnS)<15 then dnS=äns+chrs 
(158) :-goto ıi 

-print®#1 "b-p";2; 18% 

:print#2, dns; 

pPeint#]  "u2":2;8;18;9 
-peint#1, ”i” 

:delose 

guto 243 
bend 


if t$="i” then begin 

:te$="disk-id aendern”:gosub 30809 
:char 1,2,5,”enter new id:” 

le a 42090:dis=- 


:if len (di$)<5 then di$=dis+chr$ 
(168):goto 198398 

:print#1, ”"b-p”;2;162 
:print#2,dis; 

:print#1, "u2”;2;90;18;0 
:print#1,”i” 

:delose 

:goto 249 

bend 

goto 192228 


rem --- changs drives-unit --- 
ram ---------------------- 
tes=-"device-nr. aendern”:gosub 398028 
char 1,2,5,"enter new drive-unit:” 
x=-P6:y-5:82=d:1l=-2:gosub 40099: du=val 
(15) 

open 1,8,15, ”"u®>”+chr$ (Cdu):close 1 


11090 : 


11100 
11110 
11120 
200008 
20019 
20920 
20030 


20940 
20050 
20960 
302008 
30019 
398208 
300308 
30949 
390059 
30069 


goto 240 

end 

rem --- error --- 

DEN: ren I 

if er-38 then dclose :;print chr$ 
(7):resume 240 

end 

rem --- menu --- 

rem 

te$="Lcbm wJ”+te$S+”"[chbm qJ” 


window 4,12,36,23 
char 1,80,9,”C[Ccbm a,31shift *,cbm s)” 
£or ui=1 to 19:char 1,8,ui,” 
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e3c5 


128 


1626 
13593 
Ser 
3848 
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[shift -J"-char 1,32,ui,"[shift -I”: 40088 :iFf ut$=chr$ (13) then exit 
next wi 40039 :if ut$=chr$ (20) then begin 
30070 char 1,8,.11,"Ccbm z,31shift *,cbm x) 40108 :if ui>i1 then print ” [2left,chbm @, 
” left)”; :ui=-ui-1:1$5=-mid$ (1$5,1,len 
30088 char 1,C133-len (te$S))/2)+1,0,te$s (18)-1) 


retuen 48118 :goto 400708 

. 482128 :bend > 

- 492130 : 

rem text-in v2.0 by w.b. (c) 1987 481490 :if instr (ez$(ez),ut$)=® then 40979 
- 40150 : 

19-"":uie-l 48168 :print ut$+es$;:if ui<l then print ” 
char 41,%=-1,4,”>":char 1,x*+l,yu,”<*” Ccbm @, left)”; 

char 1,x,4,”[Ccbm @,left]” 40178 :15-1$+ut$ 

5 48188 ui=ui+1:loop 

do until ui=1+1 490130 : 

:get key ut$ 49208 return 


Listing 1: Hauptprogramm zu „Disk-Helfer“ 


de0® data 20,20,20,20,00,20,00,00, 22,28,020,900,12,64,5c,12, f8 
Be0B data 00,00,00,00,00,00,00,00, 56,d2,1e,£5,5c,12,94,52,:7a 
de1® data 00,00,00,00,00,00,00,6%4, 12,54,50,20,20,22,00,00, db 
Be18 data 00,08,55,20,20,54,00,08, 22,02,02,00,20,02,2008,00, ®8 
de20 data 54,00,00,65,20,20,00,08, "228,28,0c,20,00,00,49,c3, S2 
de2B data 00,00,00,00,802,00,22,080, S2,62,02,52,53,e3,32,4a, 98 
de30 data 80,00,20,20,00,20,00,00, “2,52,49,03,8c0,20,08,00, 282 
0238 data 090,09,00,090,09,00,00,080, 22,008,20,22,090,00,00,00, 080 
De4B data 09,20,00,90,20,00,08,90, 02,20,00,00,ae,70,13,aa, a7 
0248 data 00,008,08,922,00,00,00,09, 50,34,20,b8,53,a3,30,10, 63 
0e50 data 20,00,00,00,00,d4,09,74, sa,70,13,00,20,20,00,00, Bd 
0258 data 14,09,44,d8,cF,74,54,09, 22,00,02,20,00,208,020,20, 20 
Be50 data 44,94,09,77,00,00,20,00, 22,202,00,00,00,00,e7,3b, ac 
#I=12]2} data 20,00,20,00,00,090,00,00, 80,28,22,88,cb,bb,08,a9, e2 
0e70 data 08,ba,fb,88,aa,28,08,b2, 22,80,27,33,80,20,20,00, BF 
0278 data 29,03,32,20,05,22,28,08, 20,20,20,02,00,20,020,00, 88 
Qe82 data 00,92,20,20,20,00,20,00, 20,00,00,00,19,00,00,a4, b6 
BeBB data 008,20,200,00,008,209,00,20, 40,00,18,80,00,34,80,00, b5 
de38 data 08,00,00,00,00,77,70;18, 18,80,20,20,00,20,00,00, 89 
8e98B data 44, 50,24,77,63,21,44,50, 29,20,00,02,200,00,00,00, 08 
Qsad data 24,47,50,18,00,00,00,020, 
BeaB data 89,00,00,00,00,00,00,00, 

H Oeb® data ee,31,c8,88,d1,25,8e,bl, ; 

"| BebB data c2,88,931,22,8e,31,c2,20, for a= 3584 to 140888 step 

{ Bec2 data 00,00,00,00,20,00,00,00, 8:5=B:c=®:Ffor b=® to 7: 

BecB data 00,00,020,00,00,202,22,00, gosub 569049 

Bedd data 090,00,00,20,00,4c,560,00, s=s+h+l-c:c=s>255:s=-255-s 

BedB data d2,90,080,44,60,00,48,3®, and 255:poke at+tb,h+l:next 

Beed data 00,5e,60,20,200,20,20,20, b:gosub 690490 

BeeB data 90,00,00,00,00,00,00,00, 60228 FS="pruefsumme ok”:if s<c> 

Befd data 89,00,20,00,00,00,00,00, h+1 then fF$="[rvs) 

N BefB data 00,00,20,00,90,00,00,00, pruefsummenfehler”:f=f+1 

' OFO® data 00,00,020,00,00,20,00,00, 5020230 gosub 60099:next a:print " 
BF0B data 11,00,00,11,00,090,11,20, Edown]”F”fehler”:end 
of1o data 090,15,00,20,03,22,00,00, 50048 read h$:gosub 69050: h=1* 

| OF1B -data 00,00,00,02,00,020,00,00, 16:h$=mid$ Ch$,2) 

| DF228 data 00,00,00,20,00,00,20,00, 60858 l-asc (Ch$+”x”")-4B:if 1<® 

BfF2B data 00,20,00,00,20,00,90,20, or 1>22 then 60082 

2Ff398 data 00,00,00,00,20,20,20,00, ® 50068 if 1<18 then return 

| 2f38 data 89,20,20,00,00,00,20,0280, 60878 1=1-7:if 1>9 then return 

| DF4O data 00,00,90,00,20,00,32,38, 60888 FS="[rvsleingabefehler”:1- 


DF4B data c6,4a,22,09,4a,3a,ef,4a, O:f=-f+1 
DFSO data 22,49,33,a1,c9,00,08,00, 600230 print "zeile” peek (64)* 
ars8 data 00,00,00,00,00,00,00,00, 256+peek (63)F$: return 


Listing 2: Kombinierter Hexdump-Basiclader (wird vom Hauptprogramm aufgerufen) 
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Praxis Listing 


Der €128 als 


System: C128 
Art: Utility 
Sprache: Assembler 


Ein bedeutendes Feature des 
C128 wird vom Basic V7.0 nicht 
unterstützt: die Grafikmöglichkei- 
ten des VDC-Chips. Wer nicht 
eine ellenlange Basic-Erweite- 
rung abtippen will und wem eine 
Auflösung von 320 mal 200 Punk- 
ten ausreicht, der kann sich mit 
„Picturekonverter" den Weg zur 
hochauflösenden Grafik erschlie- 
ßen. Befindet sich das Programm 
im Speicher, wird zuerst ganz nor- 
mal im 40-Zeichen-Modus die ge- 
wünschte Grafik erstellt. Anschlie- 
ßend wird mit SYS 2815, F die Gra- 


Grafik-As 


Mit „Picturekonverter“ 
können Hires-Bilder 
verzerrungsfrei vom 

40- auf den 80-Zeichen- 
Bildschirm des C128 
übertragen werden. 


fik auf den 80-Zeichen-Bildschirm 
übertragen. Die Variable F ist für 
die Farben zuständig, in denen 
das Bild erstrahlen soll. Die Farbe 
wird wie folgt errechnet: Hinter- 
grundfarbe 16*Zeichenfarbe. Die 
Farbcodes für den VDC-Chip sind 
nicht mit denen des VIC identisch, 
sie sind Tabelle 1 zu entnehmen. 


win 


vwwäi 


geschaltet werden. man ein 
anderes Hires-Bild in der Darstel- 
lung des VDC betrachten, so ist 
das in drei Schritten zu bewälti- 
gen: 


a) Aktivieren der normalen Gra- 
fik mit GRAPHIC 1,1 


b) Bild mit BLOAD"name",P8192 
von der Diskette laden 


c) Konvertierung mit SYS 2816,F 
starten. Nach dem Start des Basic- 
laders ist das eingelesene Ässem- 
blerprogramm mit BSAVE"name", 
P(DEC(*BOO")TOP(DECE"BAD")) 
auf Diskette zu speichern. 


(C. Höge!) EEMEEEEEEEEEE 


rem -- pictureconverter -- 
rem 


cc,cd,85,Ffd,a8,28,ad,28 
bank 15 


20,85, fe,20,81,0b,1B,ad 
eFf,0b,69,08,8d,2F,0b,ad 
30,0b6,69,20,8d,380,2b,88B 
dd,e4,e6,fd,a5,fd,c9,28 
f0,14,38,ad,2f,0b,e9,3f 
8d,2f,0b,2d,30,0b,e9,21 
8d4,38,2b,4c,2c,0b,a9,00 
85,Fd,38,ad,2f,0b,e9,027 
Bd,2f,2b,ad,30,2b,e9,08 
8d,30,2b6,c9,3F,90,ad,58 
60,20,84,0b,a2,05,ca,f® 
of,26,Ffe,390,06,2a,38,2a 
4c,86,0b,2a,2a,4c,86,®b 
4c,ca,cd,a2,19,20,da,cd 
29,7F,809,40,28,cc,cd,2® 
®c,ce,4c,42,c1 


For l=-dec ("8b88”) to dec (C”O®bac”) 
:read dS:d=dec (d$) 

:poke 1,d:p=p+d 

next 1 


if p€>17744 then print ”"error":stop 


rem -- die daten: 


data 78,22,20,8e8e,00,Ff,a2,la 
data 28,cc,cd,a2,19,20,da,cd 
data 25,88,23,bf,28,cc,cd,a3 
data 20,84,380,0b,89,00,8d,2f 
data 2b,a2,12,20,cc,cd,e8,28 


rem -- picconverter - demo -- 
Fast :hg=6: vg=-2:F=hg+16*vg 
graphic S:graphic 1,1 


box ‚0,0,319,188 DIR. 


WhE.0200..4D 
red..e.occeeh 
OYTissassaess® 


BEN. 2 


For 1-8 to 188 step 7 

:drauw ‚8,1 to 1,188 

:draw ‚„319-1,8 to 319,188-1 
next 

sys 2B16,F 


ÄBTYersncc.ıl 
METYernecıdl 
FELN........5 
16blU.ccsee.3 
lgryanı.dd 


Pürceesue 10 
EM 


circle ‚159,90,80:circle ‚159,90,85 


char ‚11,24, "pictureconverter demo” 


Yealsccı...dd 


sus EB16,f:paint ‚2E43,90:sys 2Bi6,f OLNBer nes, 


paint 8,243,98:char ‚17,11,”taste!” 
sys 2Bl6,f 


get key yS:sys 2971 
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«4 Demoprogramm 


UNI FOMESCHFTTERN TEN TENM 


NER TEE Praxis Listingemamammmerzu rm mn m 


S82 openZz, 


f 998 sys 36 


Ä 10200 
N 1818 
| 19020 
| 1038 


1240 ; 


1858 


1060 ; 
19070 ; 
1080 ; 
1030 ; 


1108 
1118 
1120 
1130 
1140 
1158 
1168 
1178 
1188 


1192, ; 
1200 ; 


1210 

1220 

1238 

1248 

1258 

1268 

1278 

1288 

1290 

? 1300 
1312 

1328 

1330 

1340 

1358 

1368 

1378 

1388 

1398 

1498 

J 1419 
1428 
1438 
1440 
1458 
1469 
1470 


14998 
15008 


konfigqurationsresgister 
schreibt a in vdcreg 31 
akku in vdersgister x 

vdcreg x in akku holen 


setvdcd = Scdca 
setvdc - Scdcc 
getvdc = Scdda 
notchr = Sceö®c ; 
cls =$c142'; 
count = $500Fd ; 
byte = 500Ffe ; 


clear screen 
zaehler 
zwischenspeicher 


-- programm -- 


*=5b00 ; kassetenpuffer 


’ 
sei ; interrupt sperren 


ldx #02 ; 
stx ers; 


konfiguration 
einstellen 


idx #25 ; Farbe in akku 
jsr setvdc ; setzen 


ldx #25 ; register 25 anwaeshlen 
jsr getvdc ; und laden 

ora #%10000002 ; grafikbit auf 1 
and #%1@111111 ; atr-bit auf null 
Jsr setvdc ; zurusckschreiben 


lda #$228 ; ladeadresse 
sta loopi+2 ; hi 
lda #2 ; und lo 
sta loopi+1 ; setzen 
’ 
ldx #18 ; vdco-ram adresse lo 
jJsr setvdc 
; und hi 


setvdc ; auf null setzen 


1480 ; 


count ; zaehler, auf null 


| 1519 ; 
' 1520 ; 


15398 

1549 

1558 

1560 
h 1578 
15808 
1598 
1698 
15618 
1628 
1630 
16490 
1658 
1662 
1678 


1682 ; 


1699 


loop ldy #42 
’ 
loopi lda $2822 ; datum laden 
sta byte ; ablegen 
Jsr double ; und umrechnen 
clc 
lda loopi+1 
adc #8 ; plus acht 
sta loop1+1 
lda loopi1+2 
adc #8 
sta loopi+2 


’ 
dey ; schon 39 mal ? 


Kommentiertes Assemblerlisting zu „Picturekonverter" 


kopiert zeichen in wdcram 


Bee ze ER 
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2378 


2380 


2338 
2400 


loopi 


count 
lda count 
cmp #B ; acht zeilen fertig ? 
beq newline 


sec 

lda loopi+1 

sbc #$3f ; wieder zurueck 

sta loopl+1 ; zum zeilenanfang 
lda loopi+2 

sbco #1 

sta loopi+2 

jJmp mloop 


’ 

newline lda #8 ; counter loeschen 
sta count 

sec 

Ida loopli+1 

sbc #7 ; minus sieben 
sta loopi+1 

lda loopi+2 

sbc #8 

sta loopi+2 

cmp #$3f ; schon fertig ? 
bcc mloop 


;‚ interrupt zulassen 
; zurusck ins basic 


double j3Ssr double2 ; erste vier bit 
veropenppeln 


‚dann dis zweiten vier bit 
double2 1dx #5 ; 4 mal 
loop? dex 

beq cont2 

rol byte 

bcc notset ; bits 

rol ; verdoppeln 

sec 

set rol 

jep loop2 


notset asl 
asl 
Jap loop2 


cont2 mp setvdcd ; wert setzen 


#25 ; register 25 anwashlen 
getvdc ; und laden 
#%81111111 ; grafikbit auf 2 
#<2810280228 ; atr-bit auf 1 
setvdce ; zurueckschreiben 


notchr ; zeichensatz holen 


cls ; bildschirm losschen 
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Spiele 


Wo früher der gute alte 


Teddybär saß findet 
man heute „He-Man“ 
und „Skeletor Dem 
Trend der Zeit folgend, 


bringt US-Gold zwei 
Spiele mit dem Thema 
„Masters of the Uni- 

Der Kampf zwi- 
Gut und Böse 
findet jetzt seine Fortset- 
zung auf dem Computer- 


.r 


Man begegnet ihnen auf Schritt 


und Tritt, den „Herren des Uni- 
versums", Obwohl nicht ganz so 


populär wie in den Vereinigten 
Staaten — in Deutschland kann 
man die gleichnamige Zeichen- 
trickserie nur über „Sky Channel" 
empfangen —, erfreuen sich die 
Geschichten rund um „He-Man" 
und „sSkeletor" größter Beliebt- 
heit, Vor allem das jüngere Publi- 
kum wird mit Plastikfiguren, Co- 
mic-Heften, Hörspiel- und Video- 
kassetten angesprochen. Es gibt 
mittlerweile einen ganzen Indu- 
striezweig, der sich auf „Masters 
of the Universe" spezialisiert hat. 


Die Fan-Gemeinde wächst ständig 
— weitverbreitete Fan-Clubs brin- 
gen sogar ihre eigenen Magazine 
heraus. 
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Manche der betroffenen Eltern 
reagieren ablehnend auf die neu- 
en Helden ihrer Sprößlinge. 
Durchweg muskelbepackte Krie- 


‚ger(innen) fechten einen ewigen 


Kampf zwischen Gut und Böse 
aus. Schwertkämpfe, Laser- 
schlachten und Zauberduelle sind 
dabei an der Tagesordnung, und 
immer bleibt „He-Man“ als „stäh- 
lerner Superman" der Sieger. 
Kein Wunder, wenn Brutalität und 
entnervende Einseitigkeit Stürme 
der Entrüstung auslösen. Schließ- 
lich spielt sich das groteske 
Machtringen im Kinderzimmer ab. 
Die Bühne des Geschehens ist 
zwischen Bauklötzen und Spiel- 
zeugautos anzusiedeln. Was frü- 
her die gute alte Ritterburg war, 
das ist heute „Castle Grayskull“, 
He-Man’s Heimstatt, in der Plastik- 
version der Firma Mattel. 


Auf der Jagd nach 
„Steinen“ 


Diese massive Nachfrage forderte 
ein Computerspiel mit gleicher 
Thematik geradezu heraus: „Ma- 


SRORD 


PSKULLS CRACKED 0010 


STATUS 
MooNS TIL DooN oo. 


sters of the Universe“ als Action- 
spiel oder Textadventure. Die 
Story des Actionspiels beginnt 
in einer ausweglosen Situation: 
Oberbösewicht Skeletor hat 
Castle Grayskull erobert und be- 
droht die Fantasy-Welt Eternia. 
He-Man's Aufgabe: den soge- 
nannten „llearth Stone" zu zerstö- 
ren, von dem Skeletor seine unbe- 
siegbare magische Macht bezieht. 
Davor muß er jedoch den kleinen 
Zauberer Orko befreien und ihm 
einige Gegenstände beschaffen, 


Programmname: Masters of the 
Universe — The Arcade Game 


Idee /Story: 

Grafik: 

Sound 
Schwierigkeitsgrad 
Spielspaß 

Spieltyp: Actionspiel 
Spielerzahl 
Besonderheiten Spiel zur TV-Serie 
Hersteller: US-Gold 

Preis: (Kass./Disk) 34,95/49,95 DM 


Händler: Ariolasoft 


BoDY SHIESD U 


_ [gu 


die im ganzen Schloß herumlie- 
gen. Von Orko bekommt He-Man 
den Zauberspruch, der He-Man’s 
Schwert in „Atom Smasher“ ver- 
wandelt. Nur dieses Schwert kann 
Skeletors Stein zerstören. Keine 
Frage, daß Skeletors Krieger, 
Schlangen und ähnliches Getie 
ihn daran hindern wolle 
mit fünf Leben, einem 
schild und einiger Ubu 
leicht, die verschied 
des Schlosses mit Erfolg zu d 
forsten. 


Die einzelr er beziehungs- 
weise R ı recht 
abwech Leider kann 

Joystick-Steuer ing in man- 


l Sprin- 
it über- 
ik der ameri- 
ie „He-Man" 
ir den Sound im Hin- 

andauernde Wie- 

=doch entnervend. 
Das „Masters ofthe Universe“ -Ac- 
tionspiel ist ın ıer Kategorie be- 
stenfalls guter Durchschnitt. 


Abenteuerlicher Kampf 
gegen die Zeit 


ntasievoller 
Universe- 
der einmal 


aus Felsbrocken b 


sen, die sich durch massives Ge- 
stein hindurchnagen. Sie sind be- 
reits an den Grenzen Eiermias an- 
gelangt und erzwingen dadurch 
den Einsatz von — wem wohl? — 
He-Man! Prinz Adam, die ‚bürger- 
liche‘ Iden He-Man’s, be- 
kommt von König Randor den Be- 
fehl, He-Man zu änden und ihn mit 
der Rettung des Schlosses zu be- 


auftragen. He-Man zu finden ist je- 


doch nicht die Schwierigkeit, viel- 
mehr sich in In zu verwandeln. 
Denn dazu braucht Prinz Adam 
das Schwert der Macht, und die- 
ses gilt t aufzuspüren. 
Mit dem raucht man die 


‚die um das 
hen, nicht 


Q. 


Zauberei und Zeittor 


Erdbeben ei- 
tinuum verur- 


.m do 

[#77 
( 

0 
=} 
u 
® 
< 
D 
} 


ı nm 
1m 


eine ultimative 
=r er Skeletor besie- 
rin nm He-Man durch ein 
nd das Zeit-Konti- 
Ilt. 

:e Ängelegen- 
dventure-Spieler 
e zu lösen wird 


Kommando besonders 
ISAVE" speichert 


n Spielstand ins 
=8 ein gelegentliches 


He-Man's nicht weiter 


h ist. Mit „OLOAD" wird 
f wieder in die Aus- 
gangssituation zurückversettt. 
Der Bef ehl „BOM" ermöglicht 


is Ad- 
venture, das von der Popularität 
der TV-Serie profitieren will. Mit 
über 80 Bildern stellt es ein voll- 
wertiges, eigenständiges Spiel 


dar, das mit attraktiver Grafik 
Adventure-Fan gänzlich befrie- 
digt. Man erkennt klar die Mühe 
die darauf verwandt wurde, kei- 
nen Abklatsch zu Plastikfiguren 
und gleichförmigen Fantasy-Ge- 
schichten zu produzieren. 

So werden die „Herren des Uni- 
versums" — trotz vielfältiger Kritik 
— auch weiterhin an oberster Stel- 
le der Wunschliste stehen 

(Thomas Kastura) 


Programmname: Masters of the 
Universe — The Super Bavanne 


) ] | 3 4 
L 


Idee/Story: 

Grafik: 

Sound 
Schwierigkeitsgrad: 
Spielspaß 

Spieltyp: Text-Adventure 

Spielerzahl: l 

Spiel zur TV-Serie 

US-Gold 

(Kass./Disk) 34,95/49,95 DM 


Besonderheiten: 
Hersteller: 
Preis: 


Händler: Ariolasoft 


Radnor ’*s thronerooMm. 
before you wearing an 
ep tconcern. 


You can 90 


u see nothing special. 
e earth tremors nore violentliy. 
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Spiele === 


Arkanoeid — 
Nostalgie mit Pep 
Nach „TV-Tennis“, folgten anno 
1974 zwei weit Vi 


D 
(D 


„Space Inv und „Break- 
Out“. Interessant ıst, daß jetzt im 
13. Jahr der Videospiele Remakes 
von „Break-Out“ erscheinen: „Är- 
kanoid* und „Krakout“ für den 
C64 und „Demolition“ für Amiga. 
In der Spielbeschreibung von 
„Arkanoid* sucht man vergeblich 


nach dem kleinsten Hinweis auf 
den ursprünglichen Spieleklassi- 
ker. „Break-Out" war ein „Kassen- 
magnet“ in den damaligen Spiel- 
hallen. In Zeiten, wo in nahezu je- 
dem Computerspiel geschossen 
und gemordet wird, hat ein reines 
Geschicklichkeitsspiel, wie „Ar- 
kanoid“ einen ganz besonderen 
Reiz. Blickt man einem „Arkanoid- 
Spieler" zu, glaubt man, es sei al- 
les ganz einfach. Von wegen: Blitz- 
schnelle Reaktion und Augenmaß 
sind gefragt. Das Spielprinzip ist 
ganz einfach: Ein Ball wird gegen 


Hindernisse durch 


RE EEE 
us Steinen geschos- 
sen. Trifft der Ball gegen einen 
Stein, so prallt er ab, untermalt 
von einem hellen glockenartigen 
Ton. Farbige Steine werden sofort 
zerstört, graue Steine sind schwer 
zerstörbar und graublaue unzer- 
störbar. Nach oben und den bei- 
den Seiten ist das Spielfeld von ei- 
nem Rand umgeben, an dem der 
Ball reflektiert wird. Aufgabe des 
Spielers: Den Ball mit Hilfe eines 
Rackets nach oben zu lenken. Ge- 
lingt ihm das nicht, so entflieht der 
Ball nach unten und das Racket 
explodiert mit lautem Getöse. Lei- 
der wurde für „Arkanoid" eine 
recht abstruse Hintergrundstory 
„zusammengebaut“: Aus einem 
zerstörten Raumschiff entkommt 
ein Beiboot. Nach 32 Spielstufen 
kommt es zum Kampf mit einem 
„Dimensionsveränderer". Zerstört 
man ihn, so wird durch Zurück- 
drehen der Zeit das Mutterschiff 
wieder zum Leben erweckt und 
das Spiel ist gewonnen. Was das 
Ganze soll, wird wohl immer ein 
Geheimnis des Autors der Spiel- 
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beschreibung bleiben. Die Aliens, 
die aus einer Öffnung am oberen 
Biläschirmrand ins Spiel kommen, 
sind ebenfalls fehl am Platz. Hier 
wurde eine „Weltraumgeschichte 
um ein Spiel herumgebaut" und 
damit die Spielhandlung unnöti- 
gerweise gestört. Dem wider- 
strebt die Grundidee von „Arka- 
noid" mit seiner klaren und einfa- 
chen Logik. Nicht ganz so einfach, 
aber passend, sind die Features, 
dargestellt durch farbige, mit 
Buchstaben gekennzeichnete 
„Energiekapseln". Sie befinden 
sich hinter bestimmten Steinen 
und werden freigesetzt, sobald 
man einen Stein zerstört. Den Stei- 
nen ist es allerdings nicht anzuse- 
hen, ob sie eine der begehrten 
Hilfen versteckt halten. Kapseln 


Beben] 


ea a; a, na Fo 


a 
” 


Kam 
" 


ah 


n 


FE 


haben eine, für jeden Buchstaben 
spezifische Wirkung. Sobald man 
eine Kapsel mit dem Racket auf- 
fängt, tritt die zu diesem „Energie- 
spender" gehörende Wirkung 
ein. Manchmal hält die Wirkung 
nur solange an, bis eine andere 
Kapsel gefangen wird oder der 
Ball entkommt. Die Wirkung auf 
das Racket können unterschied- 
lichster Art sein: Vergrößerung 
des Rackets oder Verlangsamung 
des Balls. So gibt es auch eine 
„Energiekapsel" die den Ball in 
drei neue Bälle zerreißt. Darauf- 
hin geht es meist sehr hektisch zu. 
Denn länger als fünf Sekunden 
schafft es in der Regel niemand, 
diese drei Bälle im Spiel zu halten. 
Eine Kapselwirkung gibt sogar ein 
Tor in den nächsten Level frei. 
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Normalerweise ist ein Level erst 
dann abgeschlossen, wenn alle 
zerstörbaren Steine „abgeräumt" 
wurden. Durch das Tor wird der 
nächste Level ohne viel Aufwand 
erreicht. Dies ist vor allem in den 
höheren Levels sehr praktisch. 
Ein Handikap des Spiels sind ne- 
ben „unzerstörbaren" Steinen sol- 
che, die erst durch mehrfache Be- 
rührung zerstört werden. In den 
ersten Levels müssen sie zweimal 
getroffen werden, die Zahl nimmt 
jedoch mit steigendem Level zu. 
In den Levels ab 20 muß man dann 
diese speziellen Steine fünfmal 
treffen bis sie zerstört sind. Als zu- 
sätzliches Handikap wird die An- 
zahl der Treffer bei Ballverlust zu- 
rückgesetzt. So kann die Bewälti- 
gung eines Levels zum Problem 


Blaue Kugeln mit 
dem Buchstaben 


„E" (Extend) ver- 
breitern das Rak- 
ket. Braune Ku- 


geln mit dem 
Buchstaben „S" 


(Slow) verlangsa- 
men den Ball. 


Grüne Kugeln mit 
dem Buchstaben 
„C“ (Catch) sind 
Energiekapseln 
zum Fangen und 


anschließend ge- 
zielten Abschie- 
Ben des Balls. 


werden. Für alle neugierigen 
Spieler aber ein Trost: Sie müssen 
nicht hundertmal niedrige Level 
spielen um letztendlich einmal das 
Schlußbild zu sehen. Ein Program- 
mierfehler ermöglicht einen „Mo- 
gelmodus“: Bei Anwahl von zwei 
Spielern mit einem Joystick erhält 
der zweite Spieler im zweiten 
Level plötzlich für jeden abge- 
räumten Stein ein Extraleben. So 
gelangt man sehr einfach in den 
„Genuß“ der höheren Levels. 
Gute Reaktion ist aber dennoch 
notwendig, um durch alle 32 Level 
zum „Dimensionenveränderer" zu 
gelangen. Als Belohnung erhält 
der Sieger eine Melodie vorge- 
spielt, die im Gegensatz zum 
„Ding Dong“ des Spiels ein „Oh- 
renschmaus“ ist, Bei der Racket- 


bo you Enou the 
ansHuer? 


Steuerung ließ man sich wes 3e- 
sonderes einfallen: So mu much: 
unbedingt mit dem jogsuck o=- 
spielt werden. Statt dessen smd 


I belıiere so. 


Graue Kugeln 
Buchstabe „P" 
Extra Play) ge- 
ben einen Bonus- 
ball. Hellblaue 
Kugeln (Buchsta- 
be „D" Disrupt) 
zerreißen den 
Ball in drei unab- 
hängige Bälle. 
Rote Kugeln 
(Buchstabe „L“ 
Laser) Racket 


wird zur Laserka- 
none. Hellrote 


Kugeln (Buchsta- 
be „B“) öffnen ein 
Tor zum nächsten 
Level. 


neben Tastatur auch Paddles und 
Neos-Maus verwendbar. Wenn 
man von der abstrusen Hinter- 
grundstory absieht, ist „Arkanoid" 


Idee/Story 
Grafik: 
Sound: 


Schwierigkeitsgrad 


Geschicklichkeitsspiel 


Spielspaß: 
Spieltyp: 

Spielerzahl: 1 
Besonderheiten: verschiedene Eingabemedien 
Hersteller: Imagine 
Preis: (Kass,/Disk) 24,95/39,95 


Händler: Rushware 


ein interessantes Geschicklich- 
keitsspiel, das sicherlich nicht so 
schnell langweilig wird. 

(Kurt Helm) 


Verfolgungsjagd 
im Fahrstuhl 


Spione haben in einem New Yor- 
ker Hochhaus Quzrzer bezogen. 
Spät nacl =” Agent 
Otto mit Drauber auf 
dem Fl ftrag: 
Systemati stoh- 
lenen G Das ist 
die | zu 
Quicksilv Arcade- 
spiel. „Elevator Action" ist die Um- 
setzung des gleichnamigen Arca- 
deautomaten von Taito Corpora- 
tion. Auf der Summer-Consumer- 
Electronics Show (CES) in Chikago 
tauchte zum erstenmal das Ge- 
rücht auf, daß Homecompu- 


ter-Version gepla 


RE hey 


en 
errlhae 


poration entschloß sich kurzfristig 
die Rechte an das englische Soft- 
warehaus Quicksylvia zu verkau- 
fen. So blieb relativ wenig Zeit für 
die Programmierung der C64 
Version. Zeitprobleme hat auch 
unser Held Otto bei der Suche 
nach den Geheimdokumenten. 
Feindlichen Agenten lauern im 
Gebäude und versuchen Otto das 
Lebenslicht auszublasen. Otto 
kann sich aber schützen. Er 
schießt die Lichter auf den Gän- 
gen kaputt und flüchtet in der 
Dunkelheit. Mit gezielten Schüs- 
sen befördert er seine Gegner ins 
Jenseits. Die restlichen Spione er- 
ledigt er mit Karateschlägen. In je- 
dem Stockwerk gibt es rotleuch- 
tende Türen hinter denen Ge- 


ORKaIvWır 


4). 
PI.-RYFER 


Bil al 


Reue 
| PLRTFER 


Agent Otto wird 
bei der gefährlı- 
chen. Suche 


nach Geheim- 
papieren von 
feindlichen Ge- 
heimdienstlern 
verfolgt. 
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kumente 
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liegen. Wenn 
Dokumente in einer Eta- 
mmelt hat, begibt er sich 
m Fahrstuhl oder über 
Treppen in das darunterliegende 
Stockwerk. Wenn Otto es schafit 
das Erdgeschoß zu erreichen, 
kann er das Gebäude verlassen. 
Dort auf der Straße steht ein Auto 
für die Flucht bereit. Hier beginnt 
der zweite Level, der einen ge- 
steigerten Schwierigkeitsgrad 
bietet. Grafisch schneidet „Eleva- 
tor Action“ im Vergleich mit „Mis- 
sion Elevator“ schlechter ab. 
Titelbild und Programm lassen 
vermuten, daß hier wenig Pro- 
grammierarbeit in die Umsetzung 
dieses Arkadeklassikers ver- 
wandt wurde. (ros) 


D 


@) 
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Programmname: Elevator Action 


0 \ 2 3 4 5 
Idee/Story: 

Grafik: 

Sound: 
Schwierigkeitsgrad: 
Spielspaß: 

Spieltyp: Arcadespiel 
Spielerzahl: 1 
Besonderheiten: keine 
Hersteller: 
Preis: 
Händler: 


Quicksilvia 
(Kass./Disk) 34.95/49.95 
Ariolasoft 
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Wer bislang bei „Boun- 
der“ von Gremlin Gra- 
phics ständig daneben- 
sprang, dem wird jetzt 
geholfen. Alle vier 
Spiellevels sind vollstän- 
dig kartographiert und 
zeigen die richtigen 
Sprünge. 


Im ersten Level sollte man nie auf 
das Wort „Start" oder in schwarze 
Flächen springen. Solche Aktio- 
nen haben für den Ball tödliche 
Folgen. Berge können nicht über- 
sprungen werden. Mit Hilfe der 
Sprungbretter kann man sich je- 
doch an Bergen vorbei manövrie- 
ren. Grüne Felder mit Fragezei- 
chen sollten möglichst gemieden 
werden. Den Ball erwarten hier 
unliebsame Überraschungen. 
Fragezeichen auf roten Feldern 
bescheren zahlreiche Bonuspunk- 
te. Eine gefährliche Rakete erwar- 
tet den Ball im zweiten Level. Sie 
fliegt genau zwischen den zwei 
Bergen. In diesem Level hält man 
sich besser links. Dann, kurz vor 
dem Ziel, gibt es drei grüne Fel- 


Symbolerklärung: 


8 Land 


Bonusfelder 
Berge 
Sprungbretter 


schwarze Löcher 


Überraschungsfelder 
Grüne Felder meiden! 


schwarze Zone 


Kreuze — tödlich ! 
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Auf die Sprü 


der, die ähnliche Markierungen 
wie Bonusfelder aufweisen. Aller- 
dings heißt es hier anders zu rea- 
gieren, da sonst ein kostbares Le- 
ben geopfert wird. Lautlose Rake- 
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tenangriffe bedrängen den Spie- 
ler im dritten Level, Erst mit Errei- 
chen der letzten Bergkette sind 
die Angriffe überlebt. Graue Fel- 
der verschlucken wie „schwarze 


nge helfen 


Löcher“ den Ball und beföordem munkte Raketenangriffe finden 
ihn ins Jenseits. Im vierten Level zwaschen den Markierungen 
werden alle bisherigen Schwierig- „PjC* und „PÄT" statt. Happy 
keiten übertroffen. Hier gibt esso Sowmcmng 
gut wie keine sicheren Änsprung- fros 


Wer seinen Personal Computer 
professionell nutzen will, sollte 
die Leistung des Rechners nicht 
blindlings vergeuden: Integra- 
tion statt Insellösung! Und so 
wird’s gemacht: 


rungskräfte 
ist ein Leitfaden 
zum wirtschaftli- 
chen Einsatz von 
Mikros in Produk- 
ten und Verfahren. 


Bestell-Nr.: CW M19-2, Preis: DM 111, - 


EDV-Wissen 
für Anwen- 
der ist der 
Klassiker 
für die 
Fachabteilung 
und Einsteiger. Hier 
lernt man die Anforderungen an die 
EDV zu formulieren. 


Bestell-Nr.: CW 56-7, Preis: DM 83,— 


Software- 
Enginee- 

ring in der 
Praxis. Das 
Bertelsmann 7 
Modell: Auch \f 
wer für Mikros \ 
oder PC Program- 
me schreibt, braucht die Disziplin des 
Software-Engineers. 


Bestell-Nr.: CW B09-5, Preis: DM 118, - 


Ich bestelle ___ Ex. Mikro-Elektronik für Führungskräfte 
_—— Ex. EDV-Wissen für Anwender 
__ Ex. Software-Engineering in der Praxis 
Lieferanschrift (zugleich Rechnungsanschrift*) 


Name a Vomame 


Firma 


Straße 


PLZ Or Unterschrift 


*Bestellungen aus dem Ausland werden nur gegen 
Vorauskasse erledigt. 


CW-Edition, Rheinstraße 28, 8000 München 40 
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Spielle 


3D-Manöver auf 


dem FIOBEE 

Namensgebung d manchmal 
reinste Cü zuweilen 
aber auch es Problem- 
chen: Wie te man ein 
Spiel benennen, das vor allem or- 
bitale Ballersien bietet, dazu den 
Götterhimmel der alten Griechen 
und fast gleichzeitig den des Jah- 


Araı 


drei Spielstufen nicht zu- 
letzt, und alles in 3D-Grafik? Levia- 
than? Da käme wohl kaum einer 
rauf, denn dieser aus dem Althe- 
i stammende Begriff 
stand zunächst für irgendein dra- 
chenähnliches Ungeheuer und 
metamorphierte dann zur Meta- 
pher für Chaos. Keine Spur davon 
im Spiel — aber es heißt trotzdem 
sol 
„Leviathan“ nennt sich auch der 
Raumdgleiter, den der Keyboarder 
in bewährter Zaxxon-Manier über 
außerirdische Szenerien manöv- 


auf der 
ersten, „Masterprogramm“ ge- 
nannten Spielebene, fast im Stil ei- 
nes Ausflugs: Eine zerklüftete 
Mondlandschaft ist da von oben zu 
besichtigen, wenig wirtlich zwar, 
aber auch nicht abweisend, sieht 
man mal von einigen Radarschir- 
men ab, die vorsichtshalber den 
Himmel abscannen und das Vor- 
handensein von technisch einiger- 
maßen entwickelten Lebewesen 
indizieren. Vom Umweltschutz 
scheinen die freilich noch nichts 
gehört, geschweige denn beagrif- 
fen zu haben! Fabrikschlote paffen 


140 UM Juni/87 


rieren kann. Zunächst, 


ii inan 


gel in die Atmosphäre, die n 
nur deshalb ziemlich atmunos- 
feindlich ist. Was es mit diesen 
hübsch anzuschauenden Umwel- 
sünden in Wahrheit auf sich hat 
merkt Leviathans Pilot, wenn er 
Kontakt aufnimmt: Berührt der äu- 
BRerst aggressive Rauch den Glei- 


.) 


Im dritten Level 
fühlt man sich un- 
vermittelt in die 
Antike zurück- 
versetzt. Götter 


aus der griechi- 


schen Sagenwelt 
mischen hier im 


Spielgeschehen 


mit. 


ter, ist erst die Außenhaut und 
dann das ganze Flugzeug ret- 
tungslos futsch! Gefahr droht 
überdies auch bei Tiefflug: Kolli- 
sionen mit Radarschirmen oder 
Bergkuppen sind immer letal — 
und werden von einer heftigen Ex- 
plosion flankiert. Durch geschick- 
te Flugmanöver — sicherer: durch 
Ausweichen in höhere Regionen 
— kann man diesen mehr stati- 
schen Gefahren risikolos entkom- 
men. Mehr Wendigkeit ist aufzu- 
wenden, wenn — durch warnen- 
des Sirren angekündigt — feindli- 
che Raumschiffe in Wellen angrei- 
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„Leviathan” war- 
tet mit perfekter 
3-D Vogelper- 


spektive auf. Gut 
zu erkennen, die 


Schlote mit den 
Rauchkringeln. 


fen. Denen nur passiv auszuwei- 
n, empfiehlt sich nicht, weil die 
n-Seite des Zeitkontos an ga- 
erender Schwindsucht lei- 
\lso ist Angriff angesagt, und 
it bleibt auch dafür nicht! 
ngreifer sind zu eliminieren, 
iann freilich dazu führt, daß 


Attacken noch aggres- 
egner ausgesetzt sieht, 
irgendwie typische, 
in sich widersprüchli- 
he Gratifikation. Doch nicht nur 
auch das verfügbare 
ibstoffvolumen stellt „Levia- 
than” vor Probleme. Zwei Mög- 
um nachzutanken, 
rch das Abschießen gut- 
1 Spritwürfel im Orbit 
lurch Landung neben terre- 
Treibstoffbehältern — 
reichlich absurd. Daß die 
W } beim Abschuß nicht explo- 
dieren, muß wohl unter der Ru- 
brik physikalische Novitäten ver- 
werden; daß die Landung 


In 


| 
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Programmname: Leviathan 
0 l 2 3 

Ides/Story: 

Grafik: 

Sound: 

Schwierigkeitsgrad: 

Spielspaß: 

Spieltyp: 

Spielerzahl: 1 

3-D Grafik 


Weltraumabschußspiel 


Besonderheiten: 


English Software 
(Kass./Disk)34,95/39,95 


Hersteller: 
Preis: 


Händler: Rushware 


faktisch unmöglich ist, darf man 
dagegen dem Design als Defizit 
ankreiden! Als waffentechnische 
Ultima ratio schließlich hat „Levia- 
than" noch drei sogenannte Smart- 
Bombs im Arsenal, deren „Intelli- 
genz" darin besteht, daß sie zwar 
alle Gegner in Sichtweite ausra- 
dieren, ihren Lieferanten aber in 
Ruhe lassen... Sind alle Defensiv- 
aktionen umsonst und „Leviathan“ 
muß selbst dran glauben, stehen 
noch vier weitere Gleiter zur Ver- 
fügung. Vergrößern läßt sich de- 
ren Zahl jeweils dann, wenn 5000 
Punkte verdient wurden 
„Moonscape“ nennt sich die Sze- 
nerie im Master-Programm, dem 
ersten Level. Genaugenommen 


ists wohl e 
denn der Schwierigkeitsgrad hält 
sich ın „Grenzen. Anders beim 


her was für Azubis, 


dann folgenden „Cityscape“. 
Monströs se Abwehrbauten, die 
nicht überflogen werden können 
und laufend Raketen absondern, 
erfordern sowohl visuelle Souve- 
ränität wie äußerstes Reaktions- 


Ästhetische Qualitäten 
RR 

tempo. Daran Endert ich En auf 
dem dritten, „Greekscape" ge- 
nannten Level, nichts, der zusätz- 
lich durch ästhetische Qualitäten 
verblüfft. Säulenhallen, elektrisie- 
rende Kugeln und mit Blitzen 
schleudernde Götterstatuen sind 


__ 


da die statisch-dynamischen Kom- 
ponenten, = denen „Leviathan" 


Daß die Mar növriermöglichkeiten 
(mittels Joystick) geradezu elegant 
gestaltet wurden, zählt zu den gro- 
Ben ergonomischen Pluspunkten 
dieses Spiels, das auc! 
den angenehmsten Je 
Grafik, schillernde Schrifter i 
tes am oberen und untere n Rand, 
querwandernder Scrolltext — da 
fehlt fast nichts! Versierte Desig- 
ner sind's, denen wir „Leviathan" 
zu verdanken haben. Freilich: 
Überraschende respektive neue 
Spielideen, originelle gar — daran 
fehlt's! 

(Kurt Helm & Reiner Uhl) 


Backsteine und 
Ballfresser 
Gremlin Graphics, ein englisches 


Softwarehaus bringt mit „Krakout“ 
eine Neuauflage des Spieleklassi- 
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kers „Breakout“. Die Spielidee ist 
einfach. Mit dem Joystick wird ein 
Racket, daß sich wahlweise am 
rechten oder linken Bildschirm- 
rand befindet, gesteuert. Der rest- 
liche Bildschirm ist mit bunten 
Backsteinen in unterschiedlich- 
sten Anordnungen gefüllt. Mit ei- 
nem Ball müssen sämtliche Back- 
steine zerstört werden. Trifft man 
einen Backstein, so verschwindet 
er und der Ball kommt in einem 
anderen Winkel wieder zum Rak- 
ket zurück. Einzelne Steine verän- 
dern sich und werden zu Bonus- 
steinen. Trifft man Bonussteine, 


gibt es nicht nur Zusatzpunkte son- 
dern Extraleben, Doppelschlä- 
ger, Schutzschilder und Abwehr- 
raketen. Einige dieser Steine ha- 
ben unangenehme Eigenschaften. 
Sie frieren die Bewegungen des 


DONSONOD UNI 
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Geschicklich- 
keit und schnel- 
le Reaktion sind 
erforderlich um 
alle Level von 
„Krakout“ zu 
meistern. 


Schlägers ein oder explodieren 
und zerstören dabei alles was sich 
in unmittelbarer Nähe befindet. 
Vorsicht ist geboten vor plötzlich 
auftauchenden Monstern. Sie er- 
scheinen zunächst harmlos, rasen 
aber dann mit vehementer Ge- 
schwindigkeit auf das Racket zu. 
Gefahr kommt auch vom „Ballfres- 
ser", ein besonders großes und 
gefährliches Ungeheuer. Eır- 
scheint der „Ballfresser" so ver- 
liert man sehr schnell seinen Ball. 
Wer es schafft sich durch alle 100 
Levels zu kämpfen, bekommt am 
Ende das Zuhause des „Ballfres- 
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sers" zu sehen. Am Ende eines 
Spiels können Toneffekte, Musik, 
Hintergrundscrolling, Ballge- 
schwindigkeit, Trägheit des Rak- 
kets und Doppelgeschwindig- 
keits-Racket im Menü ausgewählt 
werden. Hier kann man auch neun 
verschiedene Spielmodi einstel- 
len. In einem Menüpunkt ist vor- 
gesehen, neue Bildschirme von 
Band oder Diskette zu laden. 100 
neue Bildschirme wird das „Krak- 
out Construction Set“ bieten. 
Gremlin Graphics arbeitet bereits 
an diesem Programm, daß ein 
Konstruktionsprogramm zum Ent- 
werfen eigener Bildschirme ent- 
halten wird. 

Mit der gebotenen Erweiterungs- 
möglichkeit schneidet „Krakout" 
im Vergleich mit „Arkanoid" von 
Wer in der Spielidee besser 


Idee/Story: 
Grafik: 
Sound: 


Schwierigkeitsgrad: 


re lersre] 


Spielspaß: 
Spieltyp: 
Spielerzahl: l 


Arcadespiel 
Besonderheiten: Erweiterbar 
Hersteller: Gremlin Graphics 
Preis: (Kass./Disk) 34.95/49.95 


Rushware 


Juni/87 QUW 141 


Spiele zum 
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Bei Wind und Wetter — 
auf Fahrt mit der eigenen 
Hochseejacht 


Schon mal richtig gese- 
gelt? Activision macht's 
möglich. Rechtzeitig zur 
Sommersaison kommt 
mit „Salling“ ein Spiel 
auf den Markt, das sämt- 
liche bisher vorgestell- 
ten Segelsimulationen in 
den Schatten stellt. 


„Sailing“ ist kein einfaches „Joy- 
stick-Bewegspiel", es steckt we- 
sentlich mehr dahinter. Bevor der 
frischgebackene Matrose zur Se- 
gelregatta antreten kann, steht 
ihm die Konstruktion der Jacht be- 
vor. Mit einer optimalen Bauweise 
und richtig gewählten Materialien 
können hier bereits entscheiden- 
de Vorteile gegenüber Konkur- 
renten erzielt werden. Zunächst 
muß der Name des Bootes einge- 
geben werden. Ist die Namenstau- 
fe vollzogen, gilt es die geeignete 
Jacht für die jeweiligen Wetter- 
verhältnisse zu entwerfen. Eine 
per Scroolschrift eingeblendete 
Wettervorhersage für die Wettbe- 
werbstage hilft hier die richtigen 
Entscheidungen zu treffen. Der 
Schiffskörper kann aus den Bau- 
stoffen Fiberglas, Holz oder Alu- 
minium erstellt werden. 


„Flügel“ zur 
Stabilisierung 


Neben der Gesamtlänge kann 
man hier auch die „Wasserlinien- 
länge“ verändern. „Freeboard", 
die Höhe des Bootes, gemessen 
von der Wasserlinie bis zum 
Deck, kann zwischen 22 und 49 
Zentimetern liegen. Ebenso steht 
hier die Entscheidung über die 
Länge des Mastes an. Eine Ver- 
längerung des Mastes bringt zwar 
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eine größere Segelfläche, 
schränkt jedoch die Manövrierfä- 
higkeit ein. Den Kiel der Hochsee- 
jacht kann man mit einem oder 
zwei „Wings" ausrüsten. „Wings“ 
dienen zur Stabilisierung des Boo- 
tes und ermöglichen, mehr Wind 
auf die Seite zu bekommen. 
Gleichzeitig erhöht sich jedoch 
der Widerstand im Wasser. Man 
muß ein wenig experimentieren, 
um die optimalste Konstruktionslö- 
sung zu finden. Mit dem Feuer- 


knopf kommt man in die Teilneh- 
mertabelle. Zu Beginn des Ren- 
nens zeigt diese Tabelle den ge- 
genwärtigen Rang jedes Teilneh- 
mers an. Hier kann man die Jacht- 
Konstruktionen der Gegner be- 
trachten. Dann geht es bereits 
zum ersten Wettkampftag. Wäh- 
rend der Regatta ist der Bild- 
schirm zweigeteilt. Die obere Hälf- 
te zeigt dabei die Sicht vom Bug 
aus. In der unteren Hälfte werden 
die Instrumente angezeigt. So ste- 
hen dem Segler Anzeigen für 
Windgeschwindigkeit und relati- 
ve Windrichtung zur Verfügung. 
Die Anzeige der Windrichtung 
verdient ein ständiges Augen- 
merk, da hier der Einfall des Win- 
des auf das Segel angezeigt wird. 
Auf dem Radarschirm wird stän- 
dig die eigene und die gegneri- 
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sche Position angezeigt. Ebenso 
kann man sich auch über Position 
und Richtung der drei Bojen infor- 
mieren. Um das Spiel nicht zu 
kompliziert zu gestalten, steht dem 
Segler ein Speedometer für die 
Geschwindigkeitskontrolle zur 
Verfügung. Richtige Segelboote 
sind mit solchen Extras nicht aus- 
gestattet. Die Aufgabe besteht 
nun darin, alle drei Bojen inner- 
halb kürzester Zeit zu umsegeln. 
Dabei sollte man mit großem Ab- 


Die richtige Kon- 
struktion der 


Hochseejacht 


bringt entschei- 
dende Vorteile 


gegenüber den 
Konkurrenten. 


stand um die Bojen segeln, damit 
genügend Platz für Richtungs- 
wechsel bleibt. Das Spinnaker-Se- 
gel sollte möglichst nur dann ge- 
setzt werden, wenn der Wind von 
hinten kommt. Die Stellung des 
Spinnakers wird ständig am unte- 
ren Bildschirmrand angezeigt. 

Insgesamt muß man an fünf Wett- 
kampftagen sein Können als Seg- 
ler unter Beweis stellen. Am Ende 
der Regatta-Woche gibt es eine 
Tabelle, in der die Leistungen der 
einzelnen Teilnehmer beurteilt 
werden. Danach haben die Joy- 
stick-Segler eine Woche Zeit, um 
ihre Jacht neu aufzutakeln, bevor 
es zur nächsten Rennrunde geht. 
Insgesamt eine hervorragend um- 
gesetzte Segelsimulation, die län- 
ger anhaltenden SplelepeB ver- 


Er 


spricht. (ros) EEEmsezz 


Schwierigkeitsgrad 


Spielspaß: 
Spieltyp: 
- Spielerzahl: 

Ein hartes Kopf- Besonderheiten: keine 
an-Kopf-Rennen : 
steht den Teilneh- Hersteller: Activision 
mern in der Se- Preis: Disk 59,95 Mark 
gelsimulation 


Vertrieb: Activision 


„Salling“ bevor. 


Aus alt mach neu sierung dieses Spielsiin erster Lii- müssen Mutterschiffe mehrmals 
nie den Titelbildschirm verändert getroffen werden. So braucht man 


Statt neuer Ideen werdenalte Pro- und die Joystickabfrage des Ster- zwei Treffer, um blaue Mutter- 
dukte in neuer Verpackung ange- nenkreuzers „Liberty Star“ ver- schiffe zu vernichten. Für grüne 
boten. Dieser Trend — in der bessert. Die Hintergrundge- Feindschiffe werden drei Treffer 
Schallplattenbranche bereits seit schichte hat sich jedoch nicht ver- benötigt. Und rote Sternenkreuzer 
längerem üblich — hält jetzt sei- ändert. Das Sternensystem Celos sind erst nach dem vierten Treffer 


nen Einzug auf dem Compı 
spielemarkt. Das Softwa 
„Electric Dreams" erwa 


IV wird wieder einmal vonden Zy- ausgeschaltet. Um sich über grö- 
lons bedroht. Die Zylon-Sternen- ßere Strecken im Sternensystem 
flotte verfügt über neue Waffensy- zu bewegen, gibt es die Hyper- 


Rec an so einem „Oldie steme und versucht das gesamte space-Funktion. Aufeiner grafisch 
brach Atari das Acti onspie ! Sternensystem zu erobern. Eine gut gemachten Karte kann man 
„Star Raiders" für Atari 800 XL- Person steht den Zylons dabei im hier den neuen Bestimmungsort 
Maschinen heraus. Jetzt nachachtt Weg — der Kommandant des auswählen. Grafisch nicht gelun- 
Jahren gibt es mit „Star Raiders Il Kampffighters „Liberty Star“. Sei- gen ist die Darstellung der gegne- 
den Nachfolger des erfolgreichen ne Mission: alle Städte auf drei rischen Raumgleiter und Mutter- 
Weltraumklassikers. „Star Rai- Planetenundeinem Mond vorden schiffe. Man fühlt sich hier an die 


uppt sich als „verbes- feindlichen Angriffen zu schützen. erste Basic-Sprite-Programmie- 
ion des bereits vor Die Anzahl der Städte verändert rung erinnert. Vor drei Jahren hät- 
programmierten „The sich von Spiel zu Spiel. In den te dieses Spiel sicherlich noch Be- 


ders II’ e 


". Wegen der Co- Kampfszenen müssen alle feindli- geisterung ausgelöst. Im Jahr 1987 
pyright-Probleme zum gleichna- chen Raumschiff zerstört wer- jedoch wirkt „Star Raiders II" 
migen Kinofilm wurde dieses „Bal- den. Einige Kampfgeschwader reichlich „angestaubt". 
lerspiel* nie veröffentlicht. „Elec- besitzen ‚n Mutterschiffe, die vorran- 
tric Dreams“ hat bei der Moderni- gig zu zerstören sind. Je nach Typ (ros) 


Programmname: Star Raiders II 


- ODDDDDt “ 
en 
un —— Idee /Story: 
Grafik: 
Sound: 


Schwierigkeitsgrad: 


2 z Spielspaß: 
„Star Raiders II GE 
ist ein „Oldie“ in Spieityp: Actionspiel 
neuer Äufma- Spielerzahl: 1 
chung. Die Grafik Besonderheiten: keine 


der Kampfszene 


S 


Hersteller: Electric Dreams 


Preis: (Kass./Disk) 39,95/59,95 


Händler: Ariolasoft 
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Spiele 


uiz in London 


Fans von „Trivial Pursuit“ 
werden auch von „Ticket 
to London“ begeistert 
sein. Es handelt sich um 
ein amüsantes Frage- 
spiel, das gehobene An- 
sprüche an Ällgemein- 
bildung und Englisch- 
kenntnisse stellt. 


Ort der Handlung ist London. In 
der guten alten Victoria Station an- 
gekommen, sieht man sich so- 
gleich mit der zentralen „Master- 
Frage" des Spiels konfrontiert: 
Der Name einer mysteriösen Per- 


son ist gesucht. Mit 300 Dollar und 
50 Pfund Startkapital stürzt sich 
der fiktive (natürlich amerikani- 
sche) Tourist in die Londoner City. 
Er besichtigt das British Museum 
und den Tower, geht shopping bei 
Harrods und ’einen heben’ im 
nächsten Pub. Verkehrsmittel sind 
Taxi, U-Bahn oder die eigenen 
Beine, die zwar am billigsten sind, 
jedoch sehr zeitraubend. Wäh- 
renddessen stößt man regelmäßig 
auf Londoner, deren einzige Be- 
schäftigung darin besteht, Fragen 
zu stellen, zum Beispiel: Wer war 
T.E. Lawrence, oder wo kann man 
in London einen Turner besichti- 
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SCOFE 
LIVUES 


339909 
#: 


gen? Glücklicherweise stehen nur 
vier mögliche Antworten zur Ver- 
fügung, so daß Zufallstreffer keine 
Seltenheit sind. Nach einigen rich- 
tigen Antworten wird eine erste 
„Message“ eingeblendet. Sie gibt 


Ankunft am 
Charles de 
Gaulle-Flugplatz 


in Orly bei Paris. 


Hinweise („Clues“), wie wichtige 
Informationen über die gesuchte 
Persönlichkeit herauszufinden 
sind. Nach spätestens zehn 
„Clues" müßte für den London- 
beziehungsweise Englandkenner 
eine Lösung möglich sein. Dazwi- 
schen sollte man regelmäßig Dol- 
lars in Pfund umwechseln (Vor- 
sicht: Am Wochenende sind die 
Banken geschlossen!), Essen ge- 
hen und sich ein Hotel zur Über- 
nachtung suchen. 

Da das Spiel vor allem die anglo- 
phil veranlagten Gemüter an- 
spricht, dürfte der englische Text 
nicht weiter stören. Hat man sich 
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HISTORE 
FOUND 1 


33103) 


Bereits in der 
Victoria-Station 
wird man mit den 


ersten Fragen 


konfrontiert 


dann einige Male durch Englands 
Geschichte, Kunst und Literatur 
hindurchgekämpft, kann man sich 
an „Ticket to Paris" wagen, ein 
Parallelspiel, das fast genauso auf- 
gemacht ist. Allerdings wirkt es 
durch einen integrierten Franzö- 
sisch-Sprachkurs auf den Franko- 
phoben eher abschreckend. Für 
potentielle Quiz-Kandidaten stellt 
es jedoch eine Herausforderung 
dar. Es ist etwas übersichtlicher 
aufgemacht, leichter zu bedienen 
und facettenreicher dargestellt. 
Beide Spiele überraschen mit be- 
eindruckender Grafik und gro- 
ßem Fragenkatalog. Hier wurde 
eine interessante Spielidee auf 
originelle Weise realisiert. 
(Thomas Kastura) 


Programmname: „Ticket to London“, 
„Ticket to Paris“ 


l 2 3 4 5 
Idee/Story: 

Grafik: 

Sound: 

Schwierigkeitsgrad: 

Spielspaß: 


Fragespiel 


Spieltyp: 
Spielerzahl: 1 


Besonderheiten: keine 


Hersteller: Blue Lion Software 
(Disk) k.A. 


Händler: k.A. 


Preis: 


Blechkasten mit 
Kurzsecehluß 


Der Trend, Kinofilme als Compu- 
terprogramme umzusetzen, 
an. Ocean Software bietet jetzt mit 
„Short Circuit“ das Spiel zum Film 
„Nummer 5 lebt!“. Die Hinter- 
grundgeschichte hört sich bereits 
wie bester Science-fiction an. 
„Nummer 5", ein Roboter der 
SAINT-Serie (Strategischer, künst- 
lich intelligenter Nukleartrans- 
port) ist außer Kontrolle. Während 
Transportarbeiten wird „Nummer 
5" von einem Blitzschlag getroffen. 
Tief in seinen innersten Schaltkrei- 
sen verändert sich etwas und 
plötzlich beginnt er zu leben und 
Gefühle zu haben — wahrschein- 
lich das Schlimmste, das einem 
Militärroboter passieren kann. 
Verständlicherweise zieht dieser 
ausgefllippte Roboter jede Menge 
Aufmerksamkeit auf sich. Wissen- 
schaftler möchten ihn in sämtliche 
Einzelteile zerlegen, um herauszu- 


nal 
iicaıı 


finden, was mit dem Roboter pas- 
siert ist. Der Boss von Nova Robo- 
“ einfangen, 
bevor Zivilisten zu Schaden kom- 
men. Vom Sicherheitschef kommt 
der Vorschlag, den Roboter in die 
Luft zu sprengen, um rechtzeitig 
zum Mittagessen zu Hause zu sein. 
Verständlicherweise ist „Nummer 
5“ nicht gerade begeistert von 
diesen Vorschlä und be- 
schließt zu fliehen. An diesem 
Punkt beginnt das Computerspiel. 
Genauso wie im Film muß der Ro- 
boter aus dem Fabrikkomplex 
entkommen und Attrappe 


am 
SUuIS 


von sich bauen, um seine Verfol- 
ger zu täuschen. „Short Circuit" 
besteht aus zwei Programmteilen. 
Teil eins beginnt in der Fabrikhal- 
le von Nova Robotics. „Nummer 5“ 
muß alle 36 Räume nach Hard- 
ware und Computerprogrammen 
durchsuchen, um seine Laser zu 
aktivieren. Zusätzlich ist das tech- 
nische Handbuch für den Bau der 


Bis der rettende 
Lastwagen er- 
reicht ist, müssen 
noch unzählige 
Gefahren und 


Hinternisse über- 
wunden werden. 


ist gerade noch genügend 


»' 


drei Gegenstände 
n werden. In diesem 
sind Rätsel zu lösen 
in die Freiheit ist zu 
gibt es für ausge- 
ı und gefundene 


Nummer 5" ein 
kann er nieman- 
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Short Circuit” ist 
die Computerum- 
setzung des be- 
kannten Kinofilms 

Nummer 5 lebt!“ 


den töten. Aber er kann seine 
Gegner betäuben, um Zeit zu ge- 
winnen. Sobald man es geschafft 
hat, nach draußen zu kommen, 
geht die Jagd weiter. Hier gilt es, 
den Sicherheitskräften, die den 
Befehl haben, zu töten, und den 
anderen SAINT-Robotern, die 
programmiert sind, „Nummer 5" 
zu deaktivieren, zu entkommen. 
Zu allem Übel muß der Roboter 
den rettenden Lastwagen finden, 
bevor der Nova-Helikopter an- 
kommt und die Flucht entgültig zu- 
nichte macht. Sobald „Nummer 5" 
den LKW erreicht, gibt es eine 
Chance, den Köderroboter zu 
bauen, die Häscher abzuschütteln 
und fortan glücklich weiterzule- 
ben. Animation und Bildgestaltung 
in „Short Circuit" sind hervorra- 
gend gelungen. Der Schwierig- 
keitsgrad ist sehr hoch. Trotzdem 
ist der Spielreiz lang anhaltend. 
Wem der Film gefallen hat, der 
wird von „Short Circuit" keines- 
falls enttäuscht sein. (ros) EEE 


Programmname: Short Circuit 


0 1 2 3 4 5 
Idee/Story: | 
Grafik: 

Sound: 
Schwierigkeitsgrad: 
Spielspaß: 

Spieltyp: 
Spielerzahl: 1 


Action- und Suchspiel 
Besonderheiten: Spiel zum Film 

Ocean 

(Kass./Disk) 39,95/39,95 Mark 


Hersteller: 
Preis: 


Rushware 
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Spiele = 


Filmfreaks & 
Genies gefragt 


Rambo würde mal wieder rot se- 
hen, nicht etwa wegen der ver- 
haßten Schlitzaugen — die putzt er 
weg — nein, wegen der Konkur- 
renz, die ihm — ihm! — da ein 
Schlitzohr Buck Palace 
heißt der Bursche, und von Beruf 
ist er Postbote, wenn auch einer 
von der besonderen Sorte. Weil 
ein Brief an einen von den Viet- 
kong gefangenen GI ohne Kom- 
mentar zurückkommt, will er ihn 
persönlich abliefern. Nach 18 mo- 
natiger Zwangspause in Kambo- 
dscha haut er einfach ab nach Ha- 
noi, wo er sich bald wieder als 
„Mailman" unentbehrlich macht. 
Seine Vorgesetzten vertrauen ihm 
so blind, daß sie ihn sogar mit der 
Dschunken-Post zu einem gehei- 
men Camp im Dschungel schik- 
ken. Die Wärter da wickelt er als- 
bald um den Finger. Und so hin- 
dert ihn keiner daran, die ange- 
ketteten Gls zu befreien und pa- 
ketweise heimzuschicken. Das 
Porto soll das Pentagon bezah- 
len... 

Kein Schelm, wer Böses dabei 
denkt! Lachmuskeltraining ist an- 
gesagt auch bei den anderen Mo- 
vies. Etwa bei „Cannibal Buffet of 
the East“, wo Captain Bob eine 
Einladung zum Dinner annimmt, 
nicht ahnend, daß er dabei den 
Hauptgang verkörpern soll. Auch 
nicht ohne: Filme wie „Vampire 
Penguins of the North" oder 
„Slash'n' Chop Sock Hop“. Ganz 
im Gegensatz zu seinem Spätwerk 
„Ihe Day the Movies died", 
brachte der Mann, der all diese 
Filme machte, Hollywoods ver- 
blassende Traumwelt wieder auf 
Touren. Ein echter Allrounder, 
dieser Buddy Burbank: Schau- 
spieler, Regisseur, unermüdlicher 
Ideen- und Filmproduzent, last not 
least Studioinhaber — Multi-Millio- 
när noch nebenbei. Merke: Wenn 
Millionen sich amüsieren, freut 
sich einer immer ganz besonders! 
Freute, um korrekt zu sein, denn 
mitten beim Moneymaking riß bei 
ihm der Film, und auch ärztliche 
Kunst vermochte da nichts mehr 
zu kleben. Hildegarde, sein Weib, 
weilte danach nur noch ein paar 
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Jahre auf dieser Welt, bevor sie 
ihm folgte — in den Himmel ver- 
mutlich, wo Stars schließlich hin- 
gehören. 

Wir sind wieder in der Gegenwart 
und zwar — naheliegend — bei 
der profanen Frage, wer denn 
nun alles erbt: Hildebud, die fürst- 
liche Residenz in Malibu, und die 
vielen Millionen. Kinder sind nicht 
da, also ist, wie sich aus dem Te- 
stament ergibt, einer der Neffen 
dran, Pumpkin mit Namen, der 
netteste von allen. Vorher — so 
die Erblasserin — muß er freilich 
erst seine Intelligenz unter Beweis 
stellen, denn nachher soll er ja ein 
riesiges Vermögen mit ebenso 
viel Grips verwalten. Und Pump- 
kin erbt nur, wenn er den Test des 
Testamentes besteht! Selbst für 
das clevere Kerlchen ist das ein 
ganz dicker Pferdefuß! Schauspie- 
ler, das kennen wir nicht nur aus 
Hollywood, schlüpfen ständig in 
irgendwelche Rollen. Rollen- 
wechsel wird auch hier geboten: 
Pumpkins Part gilt es zu überneh- 
men — in „Hollywood Hi Jinx“. 
Zwar gibt's da keine müde Mark 
zu gewinnen, aber dafür ist intel- 
lektueller Spaß8 der Extraklasse 
garantiert. 

Alles beginnt eines Abends in der 
Limousine des Anwalts, der 
Pumpkin nach Hildebud bringt. 
„Denk dran“, schärft er ihm ein, 
„daß du das Vermögen nur erbst, 
wenn du bis morgen früh, Punkt 
neun, zehn ‚Schätze‘ gefunden 
hast! Wir treffen uns im Wohnzim- 
mer!" Zum Äbschied erhält der 
Fragezeichen-Erbe noch den letz- 
ten Willen seiner Gönnerin über- 
reicht — ein Foto des längst Ver- 
blichenen mit einem längeren, 
launigen Gedicht auf der Rücksei- 
te („Das wird dir die richtige Rich- 
tung weisen!*) — und eine Ta- 
schenlampe. Sein ganzes Werk- 
zeug sozusagen, denn beim Über- 
fliegen des Testaments bemerkt 
er den zweiten, entscheidenden 
Hinweis sehr schnell, daß die 
„schätze“ nämlich allesamt aus 
Buddys Filmen stammen. Da steht 
er nun, der noch arme Intellektu- 
elle, ganz allein im Dunkeln und 
direkt vor dem Portal des lichtlo- 
sen Gebäudes, um das sich zwar 
kein wilder Wein, dafür aber 
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reichlich Legenden ranken. Über- 
all auf dem großen Grundstück, 
selbst im Haus, sei nach den 
„Schätzen“ zu suchen, hatte Tante 
Hildegarde geschrieben. Nur wo? 


Reichlich stumm verhält sich 
schon die erste Figur, die er zu 
Gesicht bekommt: eine Statue. 
Buck Palace ist's, der mutige 
Mailman, in der Hand eine Bazoo- 
ka, die nach Norden weist. Auf 
Hilfe ist kaum zu hoffen, sagt sich 
Pumpkin denn auch in einem Än- 
flug realistischer Resignation, um 
sich sogleich wieder seelisch auf- 
zurappeln: Selbst ist der Mann! 
Wie wahr! 

Pumpkins Vertreter am Terminal 
hat's da schon leichter. Im Compu- 
ter steckt nämlich so was wie ein 
intelligent interpretierender und 
kommentierender Souffleur. Per 
Software erfährt der Pseudo- 
Pumpkin da alles, was passiert 
oder zu „sehen" ist, nachdem er 
sich zu irgendeiner Tätigkeit ent- 
schlossen hat, die er in Satzform 
eingeben muß. (Unsichtbarer Be- 
standteil ist dabei immer: „I want 
to...“) Es ist ein reines Text-Ad- 
venture, nur mögen die Kreativ- 
linge von Infocom diesen Label 
nicht so gern. „Interaktive Fiktion" 
nennen sie den Spieletyp, weil 
der Player mit seinen Gedanken 
und Vorstellungen den Ablauf 
determiniert, folglich dominiert: 
„You can move from place to 
place, use the objects you find, and 
interact with the other characters, 
to affect the outcome of the story." 
Als intellektuelle Knobelei wohl 
einzustufen ist das, was die Desi- 
gner als „wesentliches Element" 


Programmname: Hollywood Hi Jinx 

0 l { S:154- #8 
Idee/Story: 
Grafik: 


Sound: 


Schwierigkeitsgrad: 


Spielspaß: 
Spieltyp: 
Spieleranzahl: 1 

Besonderheiten: Save/Script-Funktion 


Interaktive Fiktion 


Infocom, Inc. 


79,95 


Hersteller: 
Preis: 


Händler: Activision 


der interaktiven Fiktion bezeich- 
nen: puzzle solving. Hindernisse 
nicht als endgültig ansehen, son- 
dern als lösbare Herausforderung 
— so etwa das Motto. 

Indes, Hollywood Hi Jinx ist — ins- 
gesamt betrachtet — eine ganz 
harte Nuß, einmal für Freaks von 
drüben, noch mehr sicher für un- 


sereins. „Wahrscheinlich wird 
dich die Lösung des Spiels viele 
Tage kosten“, wird im Manual ver- 
mutet — wohl eher eine Untertrei- 
bung, zumal sich ein hiesiger Fik- 
tionist mit dortigen Film-Verhält- 
nissen einigermaßen schwertun 
dürfte. Nicht zuletzt gilt das auch 
für die Sprache im meisterhaft ge- 


machte n we die voller Äme- 


Fülle &i finden a dort auch witzig- 
hintergründige „Anspielungen auf 


echte Filme.) Als Fazit fällt dem 
Rezensenten, der bei mehreren 
Änläufen nicht einen Punkt holte, 
nur ein Superlativ ein: „Einsame 


Klasse!“ Reiner Uhl 


| Mr begins a transcript of interaction >»look at the business card 


FE fast ice, 11 
HOLLYWOOD HIJINX me 


Infocom Interactive fiction -- a zany ROY G. BIV 
treasure hunt COMPUTER SERVICE & REPAIR 
Copyright (C) 1986 Infocon, Inc. All 576-1851 


rights reserved. 

HOLLYWOOD HIJINX Is a trademark of 
Infocom, Inc, 

Release 37 / Serial Number 861215 


>ring the doorbell 

The doorbell plays a tune from one of 
Uncle Buddy’s films. You recognize EB 
title song from "10 1/2 Little 


290 north Indians.” 


As you walk toward the house, a large 
black cat scurries across the path, 


heading toward Johnny Carson’s house. >understand the grafics on the yellowed plece of paper 


EYou don’t need to use the word 


- - wu | 
Bank Barch understand* to finish this story 


You’re standing on the front porch of 
the house, Next to the front door Is a 
regulation mallbox endorsed by Buck 
Palace. Beneath the mallbox Is a 
doorbell once rung by Sonny Tufts. To 
the south Is a walkway. 


>go to the "x” 

CThis story doesn’t know the word "x."] 
»telephone with 576-1851 

[There aren’t any verbs In that 
sentence!] 


>see In the mallbox 
The Buck Palace-endorsed, regulation 
mallbox Is closed. 


»call 576-1851 
There doesn’t seem to be a telephone 
here. 


>open the mallbox 

Opening the Buck Palace-endorsed, 
regulation mallbox reveals a copy of 
The Status Line, a yellowed piece of 
paper and a business card. 


»find a telephone 
How do you Intend to do that? 


>go to Johnny Carson’s house 
[Sorry, but this story doesn’t 


Sea Brärns Line recognize the word "johnny."] 


It’s a copy of Infocom’s newsletter 
“The Status Line" (formerly "The New 
Zork Times"). It’s addressed to Aunt 

) Hildegarde and features a story about a 

) game called "Hollywood Hijinxz." In the 

| article, author "Hollywood" Dave 

) Anderson thanks his fellow Imps for 
their enormous help and patlience. 


»go to Carson’s house 
[You don’t need to use the word 
"carson’s” to finish this story.) 


>go to next house 
[This story doesn’t know the word 
"next."] 


»go south 


read the yellowed plece of pape Bauch gurerion 


[Sorry, but the word "pape” is not In 


the Yocabulaey you Can use.] A life-size statue of Buck Palace, one 


of the stars of Uncle Buddy’s talent 
stables, stands here. He’s holding a 
bazooka pointing south. Hmmm, It looks 
as If the statue of Buck Palace, the 
fighting letter carrler, has changed 
position. 


| »read the yellowed plece of paper 
You. see the following: 


>90 south 
It’s a long way back to town. 


You can hear dogs howling In the 
distance. 


| 
a 


>go south 
It’s a long way back to town. 


a 


un nn 


j 
j 
EIN 
} 
I 


| 
- 
Den 
_ 


>go north 


I ia Front Porch 


Kommunikationsprotokoll des interaktiven Textadveniure „Hollywood Hi Jinx“ 
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Brucker unter 1900 Mark 


N x 
Be 


ıter ist ohne Drucker letztlich un- 


brauchbar. Programmierer benötigen ihn, um 
Listings zu Papier zu bringen, Datensammler müssen 
Listen erstellen und Textverarbeiter können erst 
recht nicht auf den Drucker verzichten. Ganz unter 
dem Motto „Für jeden den richtigen Drucker" steht 
unsere Marktübersicht in der nächsten Ausgabe. 


in eigener Regie 
Konami, bislang nur als Spielautoma 


RER u 
tenhersteller be- 


kannt, programmiert jetzt die C64-Umsetzungen sei- 
ner Ärcadeautomaten selbst. Nach dem kritikablen 
Erstlingswerk „Jailbreak“ kommt „Nemesis“, ein 
Weltraumspiel, das auf dem Arcadeautomaten 
durch seinen Spielspaß und Geschwindigkeit Furore 
macht. Unser Testbericht zeigt, ob die C64-Version 
dem Vorbild gerecht wird. 


Ohne Einladungskart 


RETTET HET EE PONTE 


Aufder Suche nach dem entführten Bruder im Hause 
eines Hexenmeisters sieht sich der wagemutige 
Abenteurer im Adventure „Uninvited" mit zahlrei- 
chen Gefahren konfrontiert. Das amerikanische Pro- 
grammierteam Icom Simulation bringt mit dieser 
Gruselgeschichte den Nachfolger von „Deja Vu. 
Was Sie neben mausgesteuerter Eingabe und zahl- 
reichen digitalisierten Soundeffekten noch alles er- 
wartet, erfahren Sie in unserem Testbericht. 


€128 als Star-Maler 


ERTEILEN ERTIETRETETTERE 


N 


Bis zu 640x712 Punkte große Grafiken lassen sich 
mit der C128-Version von Star-Painter bearbeiten. 
Ein Joystick übernimmt die Funktion des Zeichenstif- 
tes. Wer Wert aufs Detail legt, kann vergrößerte 
Ausschnitte bearbeiten, sie drehen, klappen und so- 
gar invertieren. Unterschiedliche Zeichensätze ste- 
hen zur Beschriftung von technischen Zeichnungen 
zur Verfügung. Findet man nicht den passenden 
Schrifttyp auf der Programm-Diskette, definiert man 
sich einfach seinen eigenen (mit dem mitgelieferten 
Zeichensatzeditor). Mehr erfahren Sie in der näch- 
sten Ausgabe. 


oder fııllen 
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DER 
KATALOG 


Neue Bücher. 
Neue Programme. 
Neue Preise, 


DATA BECKER hat sich wieder 
eine Menge einfallen lassen. 
Mehr dazu in unserem neuen 
Katalog. Mit einer Vorschau 
darüber, was Sie im nächsten 
halben Jahr von uns erwarten 


dürfen. 


Der große DATA BECKER 
Katalog. Brandaktuell, umfang- 
reicher denn je. 

Kostenlos & unverzichtbar. 


Ab ca. Mitte Mai bei Ihrem 
Händler. 


Merowingerstr. 30 - 4000 Düsseldorf 


| Können leider nicht berücksichtigt wegen. | 


TENTH FRAME 
Atari ST/CBM64/CBM128} 
Schneider/Spectrum 


499 5 er 
DEEPER DUNGE : 
CBM64/CBM128/MSX 

Schneider/Spectrum 


Vorsicht vor Grauimporten! 


Bitte prüfen Sie schon beim Kauf, ob die- 
ses Programm wirklich eine deutsche An- 
leitung enthält. Spätere Reklamationen 


Tranvcn u WEREATEOMENTTE = 
m =. 7 TUR ARCADETERILLERS! 


EXP 


\ we 


ADERBOARD EXECUTIVE 
er CBM64/CBM128 


esbrücke 24, 4044 Kaarst 2 
Distribution in Österreich: Karasoft 


US Geld Computerspisie erhalten Sie in den Fachabteilungen von [Karstaor] pe =) sowie in allen 


Sutsartiertsa Computershops und im guten Versandhandel 


